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Preface 


a a t еее еее ке ы. 


So much has been written in the last two years about the wonders of 
the silicon chip, that І hesitate to join the chorus! ! learnt to write 
BASIC programs in the late 1960s, using a noisy teletype terminal 
connected via a GPO line to a large central computer which | never 
saw. Now, a microcomputer of comparable power is quiet, sits on a 
small desk and can be bought for the equivalent of a few days rental 


of the old terminal. After 


a holiday from computers, mainly spent 


teaching in a Middle School, | suddenly find that | can afford my 


own microcomputer, an 
programming language is 


d | am relieved to find that the BASIC 
very little changed. | am back in business! 


So what is the point of this book? Well it just happened that 
Newnes and 1 both came to the conclusion that microcomputers 


like the Sinclair ZX80 


were very suitable for beginners to 


computing, but that the manuals supplied with them seemed to be 
intended for more advanced workers. In writing this book I have 


made these three assum 
'he' read 'she' if you pre 


1 He is a newcomer 


d 
book). 
2 He has one particu 


и 


w 
т 


e wants to learn all 


tions about the reader (in each one for 
ert) 


to computer programming (naturally, 


epending on experience, he can skip early sections of the 


ar microcomputer, the Sinclair ZX80, 


witched on, in front of him. 


he instructions available in ZX80 BASIC, 


using a structured course with a steadily increasing tempo. 


Having worked through t 
reader should be able to 
transfer easily to more so, 


e book ('read' is not the right word), the 
make full use of his ZX80 and, later on, 
phisticated microcomputers. 


| can't avoid a few acknowledgements. To Betty Clare, who typed 


tricky manuscripts calm 


y and efficiently. To Peter Chapman, 


whose ideas for programs were often novel and usually translatable 
into BASIC. To my family, who learnt the hard way that computing 
can be addictive, combining the joys of puzzle solving with 
delusions of power. And finally to Clive Sinclair who lent one of his 
little machines. Having been reared on his programmable 
calculators, | was expecting something good and | was not 
disappointed. ZX80 has its limitations, that's economics for you, but 
it is very good value and a pleasant way to start computing. So, ! 
hope you find this book helpful. Happy programming to you all! 
R.N. 
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Із Multiples ce changing — base 2/10 35 an electric sewing machine or an automatic lathe. If you feed steel 


rods into the lathe, you can end up with lots of wood screws — very 
useful products. If you feed words and numbers into the computer, 
you can also get a useful product in the form of more words and 
numbers. 

Can these machines work on their own? Well, yes and no. 
imagine what would happen if you took a lathe straight from the 
factory and fed in steel rods. Probably all you would get would be a 
lot of pretty but useless steel spirals. Somebody has to fix all the 
settings on the lathe so that it can make the tapered shape, cut the 
screw thread and mill out the slot in the head to make a finished 
screw. In just the same way, someone has to tell the computer what 
data (words and numbers) to expect, what to do with this data, and 
what results to print. The instructions for a computer are what we 
call a program, and programs are what this book is all about! 

It’s the custom to spell computer programs with one ‘m since it 
helps to distinguish them from all the other meanings of the word 
'programme'. You've just joined the ranks of the computer 
programmers and you must learn some new words, as well as some 
new meanings for old words. I'll try to keep these to a minimum, 
and ІЛІ help you by listing them all in a glossary at the end of this 
book. 


Here аге two more jargon words that you must have come across. 
Hardware means all the physical parts of the computer with its bits 
and pieces — your Sinclair ZX80, the TV screen and the cassette 
recorder. 
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Software means all the programs and instruction books needed to 
make the computer work — your ZX80 operating manual, this 
book, the permanent programs put into the ZX80 by its designers, 
and the programs that you write. 

Over the years, electronic ingenuity has been rapidly reducing 
the size and the cost of computer hardware, and the little ZX80 was 
the first to break the £100 barrier. Software costs have been falling at 
a much slower rate — if you want to know why, see how long it 
takes you to write even a fairly simple program. Ail the same, mass 
marketing should mean cheaper good software in the future. 
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Talking to Computers 


With our human complement of ten fingers, we have got used to 
decimal numbers made up of the ten digits from O to 9. Computers, 
on the other hand, work with binary numbers. A binary digit, bit for 
short, can only have the values 0 or 1, and the computer is just 
about bright enough to tell the difference between these two! 

One can write programs in binary numbers (in the early days of 
computers this was the only way), but humans find binary numbers 
clumsy to handle and hard to recognise. A better way isto use a low 
level language, and to write programs in machine code, a series of 
letters and decimal numbers. Machine code programs are fast to 
run, and are economical in the use of computer memory, but they 
аге no way for beginners to learn programming. Most people 
converse with computers in a high level language, which uses 
decimal numbers and sets of recognisable English words. Some 
common high level languages are: 


FORTRAN (FORmula TRANslation, mainly for science апа 
engineering) 

COBOL (COmmercial Business Oriented Language) 

BASIC (Beginners All-purpose Symbolic Instruction Code) 


The computer cannot understand these high level languages on its 
own, and so programs have to be written to translate them via 
machine code into binary numbers. 


Computer Memories 
The memories in a computer consist of a large number of 'boxes' or 
‘pigeon-holes’, each containing an 8-bit binary number (called а 


byte). The size of computer memories is usually specified in terms of 
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'K', where 1K is a memory with a capacity of 1024 bytes. There are 
two types of memory in microcomputers such as the ZX80. 

Read only memory (ROM) contains the software needed to run the 
computer and to translate the BASIC instructions into binary code. 
ROM is permanent, and so is not lost when the computer is 
switched off. The ZX80 uses BASIC in 4K of ROM. 

Random access memory (RAM), also known as user memory, 
contains all the data and programs which you put in. It is not 
permanent, and if you switch off for a fraction of a second, the RAM 
contents are lost. Your ZX80 has 1K of RAM available, although a 
further 16K is available in a plug-in module (see Appendix 5). 


Input and Output 


We need to be able to put data and instructions into the computer 
memory and the ZX80 provides us with a reduced size version of 
the standard typewriter keyboard for this purpose. We also haveto 
provide the means for the ZX80 to show its results, and to keep a 
check on our input — a standard commercial TV set is used for this. 
We've seen that the RAM contents are lost when the ZX80 is 
switched off — this may be a precious program which has taken 
hours to write! We therefore need back-up storage in which to keep 
our programs and data permanently. A sure way is to write them 
into a notebook or file, but this still means a lot of tedious typing 
when we want to use them again. The ZX80 system uses a standard 
domestic tape recorder, and programs can be saved on a cassette, 
kept indefinitely and loaded back into the ZX80 when required. 


Looking Into the Future 


What about the long term developments — the crystal ball stuff? 
Well, 1 suppose it has all been said before, but here is a list of the 
features | should like on my future personal computer — maybe 
some of them will happen: 


(1) Some agreement on standards, so that computers can 
communicate with each other more easily. 
(2 Communication with the computer by voice — both for input 
and output. 
(3) Cheap printed output — а domestic electric. typewriter 
connected to the computer — word processing in the home. 
) Cheap unlimited permanent memory for back-up storage. 
) High definition output in colour, comparable with TV 
standards. 


(6) A large range of cheap software — programs for business, 
home, learning and leisure — in simple plug-in form. 

(7) Connection to large central computers, probably via the TV 
network, to give access to virtually unlimited information on' 
any chosen subject. 
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Programming in BASIC 


BASIC is one of the most widely used high level languages, 
especially for the present generation of microcomputers. Many 
different versions of BASIC exist, in rather the same way as there are 
many different dialects of English. However, do not lose heart! АП 
versions of BASIC are easily recognisable as coming from the same 
original source (BASIC was developed at Dartmouth College, New 
Hampshire, USA), and when you have learnt one form of BASIC 
you can quickly transfer to another form on another computer. 
Sinclair ZX80 BASIC in 4K ROM is one of the simpler versions, and 
therefore it is ideal for beginners. On the other hand, it does have 
valuable features which are not found in many other BASIC 
dialects. 


The First Computer Program? 


Let's take our first look at programming with a light-hearted 
example — later on we'll write a real BASIC program for a 
mathematical model of it. The Sorcerer's Apprentice was originally 
written by Goethe, and most people know the musical version by 
Dukas. When 1 first came across it, Mickey Mouse was the 
apprentice in Walt Disney's Fantasia. The sorcerer goes out for the 
morning, leaving Mickey with the boring job of filling a great water 
tank with water from the well. Mickey is an enterprising lad, and he 
decides to program one of the kitchen brooms to do the job for him, 
while he has a crafty snooze. 

Now, in writing a computer program, it's very important to get 
the instructions in the right order. With this in mind, every 
instruction is given a number, so that Mickey's first attempt at a 
program could have been like this: 
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Pick up bucket and go to well 

Fill bucket with water 

Carry bucket carefully to water tank (no spilling please) 
Empty bucket into water tank 


4 о М € 


Clever stuff so far, but only one single bucketful of water has been 
shifted. Mickey could have repeated the same instructions over and 
and over again, numbering them 5, 6, 7, 8 and 9, 10, 11, 12 and so 
on. But no! He has read Chapter 9 in the spell book, and all he has to 
do is to add a fifth instruction: 


5 СОТО1 


and now he has made a program loop. The broom follows the 
program exactly, and goes happily backwards and forwards filling 
and emptying buckets, while Mickey dozes off. . . . 


* * * * * 


. until he wakes with a start some time later to find his feet 
sloshing about in water. You've guessed it! He forgot to tell the 
broom when to stop! Panic stations — he chops the broom into 
sixteen bits, but each of these gets up, picks up a bucket, and carries 
on with the good work. Luckily the sorcerer arrives home in the 
nick of time. Being a skilled programmer of brooms, he knows that 
every loop must include a 'get out' test, or else it will go on for ever. 
We callthis vital step a conditional jump, because it always contains 
the magic word 'IF'. 

Now we add an IF statement, and renumber a little, and the final 
program looks like this: 


Pick up bucket and go to well 

ill bucket with water 

Carry bucket carefully to water tank 
Empty bucket into water tank 

F water tank is not full THEN GO TO 1 
Report ‘Tank full’ 

Stop 


Sm Cn ds QJ NO — 


Note that the IF statement must be inside the loop, so that every 
time it goes round the loop, the broom has to test whether the tank 
is full, and take action accordingly. 

Childish stuff 1 know, but at least it raised four points which аге 
Boing to be very important when we come to write real programs 
for the ZX80. 


(1) A BASIC computer program is made up of a series of 
instructions. 


(2) The instructions are all numbered so that the computer can 
carry them out in the order it is told to. 

(3) You can make the computer do part of a program over and over 
again by using a GO TO instruction. We call this a loop. 

(4) A loop must contain a conditional jump, which will stop the 
computer or send it out of the loop when the condition is 
fulfilled. The magic word is ‘IF’! 
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Let's Get It Switched On! 


Enough of theory! You'll need to read most of the rest of this book 
beside your switched-on Sinclair ZX80. 


Connecting up the Hardware 


To get going we need to connect up just three pieces of hardware. 


(1) The ZX80 microcomputer (of course) 
(2) The power supply for the ZX80 

Sinclair specify a supply of 9 V d.c. at 600 mA unregulated. The 
9 V output must terminate in a 3.5 mm jack plug, the tip of which 
must be positive. Sinclair’s own unit is in a convenient box with pins 
which plug directly into a standard 13 A socket. It is worth making 
the point that the usual calculator power units will not provide 
enough amps, and must not be used. 
(3) Any domestic UHF television set 

A black and white set is preferable. The TV set enables you to read 
and check your programs as you type them in, and it is the means by 
which the ZX80 displays its output. 


Connect up the UHF aerial socket of your TV set to the large 
central socket in the back of the ZX80 using the video cable 
supplied by Sinclair. Switch on the TV, let it warm up, tune to an 
unused ӘНЕ channel, and turn the sound right down. 

Connect up your ZX80 to the power supply by plugging the 
3.5 mm jack plug into the left hand one of the three sockets (it's 
farthest in from the edge) at the back of the ZX80 and switch on the 
power supply. 

Take a deep breath — nothing has happened! You have to tune 
the TV set to the ZX80 frequency first. Some sets are tuned by 
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turning the push button on the channel selector, while others have 
a little door which opens to reveal a set of tuning knobs. When you 
have got the tuning right (it’s about channel 36), the screen 
suddenly clears, and you see a little black square with a white 'K' in 
it at the bottom left of the screen — this is called the cursor. The 
cursor is there to show you where your next typed letter will 
appear, and as you type out your program lines, the cursor will 
move steadily ahead of your typing. 

| know you are desperate to get started, but first we need to have a 
quick look at the ZX80 keyboard. 


The ZX80 Keyboard 


There are five different sets of characters obtainable from the 
keyboard, plus a few odds and ends. 


(1) The set of numbers 

The numbers 1 to 9 and б are obtainable at any time, regardless of 
e state of the cursor, by pressing the correct keys along the top of 
he keyboard. You will have to be very careful not to mix up the 
number 1 with the letter |, although the difference is fairly obvious 
on the screen. More subtle is the difference between the letter O (a 
square on the screen) and the number 0 (a hexagon on the screen). | 
am following the convention in the Sinclair ZX80 manual of printing 
the number as @, partly for clarity, and to agree with other computer 
manuals. 

(2) The set of ‘tokens’ 

These are the light yellow words and symbols above the number 
line. They are obtained by holding down SHIFT and pressing the 
appropriate number key at the same time. Their use will be 
explained later. 

(3) The set of keywords 

These keywords are printed in white above most of the letter 
keys, and are one of the great joys of the ZX80 system. Suppose you 
want the keyword PRINT. Well, the cursor must be reading (К for 
keyword if a keyword is needed next — the ZX80 takes care of that. 
So, if you press the key ‘O’ which has the keyword PRINT above it, 
you will automatically type the whole word ‘PRINT’ on the screen, 
neatly spaced, and all with just one stroke of the key. At the same 
time the cursor will change from [K to 0 (for letter), since ZX80 
BASIC calls for keywords one at a time. It will change back to [К 
whenever another keyword is required. Quite a few of the 
keywords are placed above their initial letters, which helps you to 
find them. The use of all the keywords will be explained asthey are 
needed. 


сё. ст. 
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(4) The set of letters 

The letters A to Z (and also full stop) are obtained by pressing the 
appropriate keys whenever the cursor shows [L] — the ZX80 system 
will make sure that this happens at the right time. Only capital 
etters are available in ZX80 BASIC. 

(5) The set of upper case symbols 

These are a mixture of punctuation marks, maths symbols, 
graphics blocks, and so on, and they are shown at the top right of 
each letter key. They are obtained by holding down the SHIFT and 
ressing the appropriate letter key at the same time, and they are 
not affected by the state of the cursor. 

(6) Remaining odds and ends 

SHIFT is at the bottom left; its use is just like that of the shift key on 
a typewriter. SPACE at the bottom right corresponds to the space 
bar of a typewriter. NEWLINE, EDIT, and BREAK will be explained 
in due course. 


Clearing Out Old Programs 


It is necessary to clear out any existing programs in the 7Х80 
memory before you type a new one. Alright, you have only just 
switched on and there should be nothing there, but let's practise it 
anyway. Press the 'Q' key, remembering that the cursor [K] is calling 
for a keyword. 

The word NEW has appeared on the screen, and the cursor has 
changed to [L]. NEW is BASIC shorthand for 'clear out any old 
programs and variables and get ready for a new program’. It is ‘on 
the screen’, but now it must be passed to the computer so that it can 
obey the instruction. This is done by pressing NEWLINE on the right 
of the keyboard — do it now. NEW disappears (the computer has 
obeyed that instruction) and the cursor changes to [K] ready for 
another keyword. The ZX80 is cleared and ready! 


Commands and Statements 


We just used the instructions NEW and NEWLINE, and these are 
called commands. Commands do not form part of a program — they 
are separate instructions to the computer from outside the 
program, though they generally have some effect on the program. 
Some examples of commands are: 


NEW LOAD | SAVE 


Weare also aboutto meet a statement, Statements are included in 
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a numbered program line, and form part of the program. Some 
examples are: 


FOR TO NEXT IF 


Some instructions can be used either as commands or statements, 
for example: 


PRINT GO TO Cis 


Your First Program 


'And not a moment too soon', | hear someone say! We learntthat a 
BASIC program consists of lines of instructions, each line starting 
with a number. In ZX80 BASIC you must limit yourself to one 
instruction per line. Let's start by writing a single line program. 

Your cursor is requesting a keyword, but first we must type in a 
line number. Туре ‘10’, and notice how the cursor jumps ahead of 
your typing — it always shows where the next typed character will 
appear. The keyword we want is PRINT, short for the BASIC 
instruction ‘print any characters which follow on this line and are 
contained within quotation marks'. Which key are you going to 
press for PRINT? Well done, 'O' is correct, you're getting the idea! 
Do it now, and you have this on the screen: 


14 PRINTE 


the [L] cursor showing that letters or upper case characters are to be 
typed in now. Type a quotation mark (SHIFT Y) and you will see: 


16 PRINT “0E 


Why did the 5) appear? This is because ZX80 BASIC makes you type 
lines which have correct syntax. Most other computers will let you 
type a single quotation mark by mistake, and you won't discover it 
until you try to run the program. Тһе [S] on your screen now is 
saying, ‘I’ve noticed your first quotation mark, and | won't let you 
enter this line until you have typed a second one to go with it’. Try it 
— press NEWLINE and nothing happens! 
Now finish off your line, typing very carefully to give: 


10 PRINT "THE FIRST RULE IN 2Х80 BASIC" 


Note how the [S] disappeared when the second quotation mark 
went in. This means that the syntax is good and the line is suitable to 
be entered — do it now by pressing NEWLINE. The line 
immediately vanishes from the bottom of the screen, to be replaced 
by КІ, ready for the next line of the program. The first line reappears 


12 


at the top of the screen — the top three-quarters of screen is 
reserved for displaying all the lines of the program upto the one you 
are currently typing (or as much of it as it can fit in). On the left of 
your line is the current line pointer &, which marks the last line you 
have typed in. Don't worry about this for the present, we'll be 
meeting it again in Chapter 12. 

No more program lines for the moment -~ instead try running the 
program as it stands. Press keyword RUN and wait ... Hmmm! 
КӨМІП certainly appeared on the screen, but little else seems to 
happen. What did we forget to do? Oh yes, enter the command 
RUN by typing NEWLINE. Do it now, and then shout 'Eureka!l!'. 
ZX80 did what it was told! It printed all the words, letters, numbers 
and spaces, but left out the PRINT, quotation marks and cursor — 
after all these were only there to tell it what to do. At the bottom 
right of the screen is the error code 0/10, which tells you that the 
program has run without any errors, finishing at line 10. 

What the program has just done is to make the ZX80 print a literal 
string — astring of characters of any kind which is printed literally as 
it occurs in the program line. Want to do it again? Right — press any 
key to put the ZX80 into command mode again, and to bring back 
the ІК, and then press RUN and then NEWLINE again. Repeat until 
you've had enough, and then turn to Chapter 5 to add more to the 
program. 

At the end of this and every chapter from now on, I'll give a short 
summary of any new points learned in the chapter. 


We Learnt These in Chapter 4 


Commands 
NEW to clear out old programs and variables. 


RUN to make the ZX80 run the program and carry out its 
instructions. 


Statements 


PRINT to make the ZX80 print a literal string on the screen. 


Anything else 


Connecting up hardware. 
The ZX80 keyboard. 
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What the cursor does. 

Numbering your program lines. 

Literal strings — collections of any characters which are printed 
literally as they occur in the program line. — 

Quotation marks which are needed at the beginning and end of a 
literal string. ; 
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We Want Style in 
Our Programs! 


A Second Line for Your Program 


Let's finish off the first program and make it look as neat as possible. 
Fizst of all type in this line very carefully, letter for letter. 


20 PRINT "EVERY LINE MUST HAVE A NUMBERR" [L] 


but don't enter it yet. Oh-oh, two Rs in number, we'll have to 
correct it. No rubber needed, simply press RUBOUT twice (it's 
SHIFT 0) and the cursor moves backwards and rubs out the last two 
characters. Now you have to replace the missing quotation mark, 
and enter the new line by typing NEWLINE. Run the program 
exactly as you did before, and all being well you have on the screen: 


THE FIRST RULE IN ZX80 BASIC 
EVERY LINE MUST HAVE A NUMBER 


So far I've been carefully printing in the cursor whenever it 
occurred in a program line. Now I'm going to assume that you've 
got used to the cursor, and | will not bother to print it unless there is 
a special reason. 


Tidying Up 
Your program will give a neater result if we insert a space between 
the two lines of output. Try this — type: 

15 PRINT 


andthen enter it by pressing NEWLINE. Whaton earth are wetrying 
to do? PRINT what? Well, run the program as usual and see what 
happens. . . . Did it work? It did! When the ZX80 comes to a PRINT 
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statement it moves to the next line on the screen and prints what it is 
told to. In line 15 it was told to print nothing, and nothing was what 
it printed! 

Finally, it would be nice to write a little remark at the beginning of 
the program to say what it is all about. Type this: 


5 REM +++ MY FIRST ZX80 BASIC PROGRAM + + + 


and enter it with a NEWLINE. Why allthe +++ +++? Showing 
off, that’s all. The vital part of line 5 is the statement REM, which is 
saying to the ZX80, ‘anything on this line is a remark by the 
programmer and you must ignore it’. Care to check up? Run the 
program as usual, the result should be just the same. 

Our first program is now complete. Many versions of BASIC 
require an END statement at the end of their programs, but ZX80 
says ‘no need’. 


Numbering and Listing 


With most computers you have to ask for a list of all the lines in your 
program. ZX80 gives you one automatically as soon as you go into 
command mode. I’m sure you have been noticing everything that 
has been going on in the top part of the screen while we have been 
typing in the program. The ZX80 automatically sorted the lines into 
the correct order, although we typed them in the order: 10, 20, 15, 5. 

Now, why have we numbered our first two lines 10 апа 20? Well 
done, you've got it! ZX80 does not care what the line numbers 
actually are, all it is interested in is the order. So we usually make 
jumps of ten between line numbers, to make it easier to insert extra 
lines later on. ZX80 offers a choice of line numbers from 1 to 9999, 
so there's no shortage. 


Getting Rid of Whole Lines from a Program 


Suppose we want to delete a whole line from the program — what 
can we do? RUBOUT will not work, not once you have entered the 
line into the program with NEWLINE. All you need to do is this. 
Type the number of the line and then NEWLINE. The ZX80 wipes 
out the old line completely and replaces it with the empty line. In 
the same way you can change a line by typing the line number, then 
the new version of the line as usual, and finally entering it with 
NEWLINE. You can change a line like this as often as you like, ZX80 
will always erase the old line and replace it with the new. 

Now for a couple of exercises to practise what you have learnt in 
the last two chapters. 
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Exercise 5.1 


Get into command mode and then delete lines 5, 15 and 20 of your 
present program. Check that the lines have really gone, by running 
the program, and then change the remaining line to read: 


THREE LINES GONE, ONE LEFT 


Exercise 5.2 


Delete the rest of your program with one singl 

| gle keyword (plus 
NEWLINE of course). If you have forgotten which keyword, look 
back to the end of Chapter 4. 


Now write a new program to make the ZX80 print this: 


SINCLAIR ZX80 MICROCOMPUTER 
MADE BY SCIENCE OF CAMBRIDGE 


Put a space between the two lines, and two spaces before ‘MADE’. 
See what you can do with that one, and just to check that it can be 
done, try making jumps of a thousand between the line numbers. 


We Learnt These in Chapter 5 


Statements 


PRINT to produce a line space. 


REM for remarks — ignored by the ZX80 when it runs the 
program. 


Anything else 


RUBOUT to get rid of mistakes, one character at a time, while 
typing in a line of program. 

Automatic listing of the program while you are in command 
mode. 


Leaving gaps in line numbering, so that extra lines can be inserted 
ater on. 


Delete a whole line from the program after entering it, by typi 
I , n 
the line number and then NEWLINE. 8 урив 


Change апу entered line by typing its number, then the new 
version, then NEWLINE. 
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Will It do Sums? 


First, let us be honest and say that the answer isa qualified ‘YES’ for 


the basic ZX80. | 
Thetrouble with the simple ZX80 isthat it uses an INTEGER BASIC 


which only recognises integers (whole numbers). lf an answer 
should contain a decimal fraction part, this is simply chopped off 
and lost. For example: . 


Expected answer 2Х80 answer 


4 4 
7.2 7 
12.5 12 
15.99 15 
0.999 0 


Note that there is no question of rounding off, the decimal part, 
however large, simply disappears. 


Mathematical operators 


Back to school now, to remind ourselves of the four maths 
operators. You'll easily find two of them on the ZX80 keyboard: 


* (plus) at SHIFT K 
— (minus) at SHIFT J 


You will look in vain for x (times) because the ZX80, like most 
computers, uses * (at SHIFT P) for this. Similarly, for + (divided by) 
the ZX80 uses / {at SHIFT V); remember how we use this to write 
fractions like 2/3, which are really division sums. | 
There is one more useful operator available, for calculating 
powers of numbers, and this is ** (SHIFT Н); For example: 
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7? (or 7 x 7) would be written as 7**2 
2*(or2x2x2x2) as 2**4 and so on. 


We now have all the tools — let us see how to use them. 


The LET Statement 


BASIC uses a most powerful statement, which allows a computer to 
do a calculation, put the answer in a memory box, and label it so 
that it can be used later in a program. 

Clear your ZX80 by typing NEW, and then type in this line, using 
the keyword LET, 


10 LET A=123*45 


(So far, | have been reminding you to type NEWLINE after each 
command and program line, but now you are on your own!) 
What our line 10 is saying is: 


‘Work out the answer to 123 х 45, and put it ina memory box and 
label it A’. 


Now RUN the program — the code 0/10 at the bottom of the 
screen tells you that it ran successfully, stopping at line 10. There’s 
precious little in the way of output though — WHY NOT? 

Pause for deep thought . . . 

What is the statement that makes the ZX80 print things on the 
screen? Yes, PRINT was the one. Type: 


20 PRINT A 


and RUN it again. Eureka! It worked — the answer 5535 came upon 
the screen. 


Exercise 6.1 
Why did we not type: 
20 PRINT "A" 


The answer is at the end of the book, or to save time, try doing it. 
Since 5535 is rather an anonymous number, let's give it a name 
tag: 


15 PRINT “As” 

RUN, and check that the output is 
A= 
5535 
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Integer Variables 


Our memory box now contains the value 5535 and has a label A. 
More correctly we say that the integer variable A has the value of 
5535. | 

Very many different integer variables are possible in ZX80 BASIC, 
limited only by the memory available. You must follow two simple 
rules in naming them: 


(1) Names must start with a letter. | 
(2) They may contain letters and numbers, but nothing else (no 
spaces, punctuation, etc.) 


So, here are a few simple examples. 


AtoZ 
AA to ZZ 
Al to A9 
70 to 720 


We usually choose names to act as a mnemonic for the contents (T 
for total, A for area, and so on). 


Using LET with integer variables 


As we have seen, this very important statement in BASIC takes the 
form: 


LET integer variable пате =. . . 


Now let's see what we can put on the right ofthe = sign. (Let's start 
calling integers 'numbers' from now on — not quite correct but a bit 


more homely.) 


(1) A number 
e.g. LET B-Ó 
LET C- 99 
(2) An expression using numbers 
We have already used LET A= 123*45 


Similarly, LET D = 156/13 
LET E 67 4 89 
LET Е=98—76 
LET G=3**4 


You can make these expressions as complicated as you like. 
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(3) An expression using other variables, with or without numbers. 
e.g. LET H-2*G 

LET 1=Е+2 

ЕТ|-А-В 


Неге we need to be very careful, for it is no use telling the ZX80 
that H = 2*G, unless you have already said what С is. You must 
define your variables before you use them, even if they аге 0. 

(4) An expression using the same variable as the one on the left of 
the = sign. 


e.g. LET K=K+16 


Algebra was never like this! Remember we are not using the = 
sign in quite the usual way. We are saying to the ZX80, ‘take the 
contents of memory box K, add 10 to it, and put this new value 
back in box K in place of the original contents’. 


Note, once again K must have been defined previously in the 
program. 


There has been a lot to think about in this chapter, now let's try 
some practical work. Try writing some short programs to define 
variables, using all the above methods, and to print the values of the 
variables. Especially, try a program like this: 

10 LET K=9 

20 PRINT “ORIGINAL K=” 

30 PRINT К 

40 LET K=K+786 

50 PRINT “FINAL K=" 

66 PRINT К 


Exercise 6.2. Exchange Rates 
The bank offers you 69 Belgian Francs for £1. Write a program to 


calculate and print out the number of Francs you get for £275, and 
similarly how many pounds you must pay in to get 5382 Belgian 


Francs. 
We Learnt These in Chapter 6 
Statements 


LET to define a variable 
PRINT to print the value of a variable 
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Anything Else 


ZX80 uses integer BASIC (no fractions and no decimals). 
Four maths operators, +, ~, * and /. 

** for powers of numbers. 

Rules for naming variables. 
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Useful Odds and Ends 


Punctuation 


That exchange rate program in Chapter 6 — rather a messy print- 
Out, wasn't it? How much neater if we could print strings and 
variables on the same line when we want to. No problem! The 
program needs а little punctuation, that's all. Try this new version of 
the first part of Exercise 6.2: 


16 LETL-275 
20 LETB-69*L 
30 PRINT B;" BELGIAN FRANCS FOR EL 


and RUN it. That looks a lot neater. The semi-colons are saying 
‘don't move to a new line, | want to print the next item right after the 
last’. Notice that we needed a space between the value of B and 
‘BELGIAN’, so we had to include that space in the string. 


Exercise 7.1. Miles per Gallon 


Your car manages to cover 258 miles after being filled with 8 gallons 
of petrol. Write a program to calculate the petrol mileage and print 
it in the form: 


PETROL MILEAGE = хМ.Р.С. 


As a matter of interest, check your answer with a hand calculator. 

Sometimes we want to leave a gap between two PRINT items. We 
can use a string of spaces as above, but quicker and more 
economical in precious memory is the comma. ZX80 BASIC divides 
each line on the screen into four equal zones, and a comma in your 
Program says, ‘move to the next zone before PRINTing the next 
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. You'll see how it works in this program: 


10 PRINT "FEE", "FI", "FO", “FUM” 

20 PRINT 

30 PRINT "1 SMELL THE BLOOD OF AN” 
40 РКІМТ,, “ENGLISHMAN” 


Notice how we used ,, in line 40 to skip on two PRINT zones. 


Now we know how to PRINT items immediately after one 
another, or with spaces between, or on successive lines, and our 
program print-outs should be looking much prettier. Try your hand 
at this: 


Exercise 7.2. Family Transport 


Write a program to print a table of the way your family gets around, 
like this: 


Name Colour Make Type 
Dad White Austin Car 
and so on. 


Error Codes 


You must have been wondering about the numbers which appear 
at the bottom left of the screen after RUNning a program. They are 
error codes, and are listed on page 99 of the ZX80 Manual. ‘Error’ is 
not quite the right word, because one of the codes tells you that 
your program has finished running without apparent error. For 
instance, the ‘FEE, Fl, FO, FUM' program will have ended with 0/40, 
showing that the program has RUN and finished at line 40. 

Try this program: 


100 PRINT "LINE BEFORE ERROR” 
200 LET A=99*999 
300 PRINT "LINE AFTER ERROR" 


The ZX80 accepts it quite happily, but will it RUN? No — the error 
code 6/260 has come up, and the ZX80 Manual will tell you that this 
means an arithmetic overflow at line 200 (we tried to put a number 
greater than 32767 into A). At line 200, the program stops running, 
and no instructions on or after this line are carried out. 

More on error codes later. 
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We Learnt These in Chapter 7 


Punctuation (, апа В] to control where items аге printed on a line. 
Error Codes to indicate whether or not your program contains 
errors which prevent it from running. 
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The Order is Important 


We saw in Chapter 7 that an answer greater than 32767 stops a 
program with an error code. Given a complicated expression with 
several operators and numbers, the ZXB0 (like a human being) has 
to do one step of the calculation at a time, and at no stage in the 
calculation must the answer go over 32767 (or under —32767). 

You will remember how important it is in maths to do different 
operations in the right order. it is just the same for the ZX80, which 
has to follow these standard rules of priority. 


High priority x**y (x to the power y) 
-х (x made negative) 
x*y (x times y) 
хіу (x divided by y) 
x+y (x plus y) 

Low priority x—y (x minus y) 


It's useful at this stage to know that we can do calculations in 
command mode, without affecting any program in the 2Х80 
memory. For example, type: 


PRINT 2**3*6+9 NEWLINE 


The answer (57) comes up immediately, having been calculated in 
these stages: 


B= 8 
8х6-48 
48%9-57 


Try doing more calculations in command mode, and make sure that 
you get the answers you expect, following the given priority rules. 
Suppose we want to change the order — remember the good ol 
bracket? Things are what they used to be, and the ZX80 gives 
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absolute priority to calculations within a pair of brackets. Let's 
change the last calculation to: 


PRINT 2**3*(649) 


This time the stages are: 


6+9= 15 
B= 8 
8x 15=120 (answer) 


Even more complicated expressions? Maybe you need brackets 
within brackets within. . . . Remember that the ZX80 starts at the 
innermost pair of brackets and works its way out. You don't need 
telling that brackets come in pairs — nor does the ZX80; it will not 


allow you to enter a line with an odd number of brackets. Try this 
expression: 


PRINT (2*(3 + 16) +9 


The answer is worked out in these stages: 


3416 19 (inner brackets) 
2x 19-38 (outer brackets) 
38-- 9 = 47 (answer) 


Now for a more subtle point. Take an expression like: 


24x27 
108 


This has to be worked out in two stages, and humans can take any 
two ofthe three numbers for the first stage, and get the same answer 
(6). Now calculate the answer in two ways using the ZX80. 


PRINT 24*27/108 (this gives 6 as expected) 
PRINT (24/108)%27 (gives us 6) 


See what happened? We fell foul of the dreaded integer basic! 
24/108 gives an answer a little over 0.2, and as we saw in Chapter 6, 
integer basic reads 0.2 as 6. Hence the answer to the whole sum is 
given as Ó. 

Now you know the full problem. Like Ulysses steering his ship 
between the monster Scylla and the whirlpool Charybdis, you have 
to seta course to avoid your calculations going over + 32767, under 
—32767 or between д and 1. The only advice which one can give is 
to keep cool and use brackets to steer one way or the other. 
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Exercise 8.1 


Find the best way of working out these two expressions, and check 
your answers with a calculator. 


36x90 45x 730 
$4 а 


Positive and Negative Numbers 


ZX80 BASIC works with sets of positive and negative integers, as 
shown on this number line 


ГГА LL ia... | 


—32767 —5 -4-3-2-1 01 2 34 5 32767 


Negative integers Zero Positive integers 


The — sign of a negative integer is always shown, but + signs of 
positive integers are assumed. We can easily convert from positive 
to negative, or vice-versa, by using an instruction like: 


100 LETA-—A 


We can obtain the absolute value of a number by using the 
statement ABS. 


200 LET A=ABS(A) 


Remember that ABS is one of the ‘integral functions’ which has to 
be typed out in full. The ABS function converts all negative integers 
to positive, and leaves positive integers unchanged. 


e.g. ABS(- 10) - 10 
АВ5(10) -10 
ABS(Q = 6 


Try working with some of these absolute and negative values, using 
PRINT in command mode. Remember that ABS must always be 
followed by brackets containing a number, a variable, or an 
expression. 

Now we have covered all the rules and instructions needed to do 
calculations in integer BASIC. Here are some simple problems 
which you will manage very easily. 


Exercise 8.2. Temperature Conversion 
Temperatures are increasingly being given in degrees Celsius (°C). 
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Write a program to take a Fahrenheit temperature, convert it to 
Celsius, and print out the result. Remember that: 


°C = (?F-32)x 3 


Exercise 8.3. Volume and Weight of Cuboid 
A lead brick is 14 cm long, 9 cm broad and 6 cm deep. Write a 
program to calculate the volume (=length x breadth x depth) and 


display the result in cubic centimetres. If 1 cubic centimetre of lead 
weighs 17 grams, work out and display the weight of the brick. 


We Learnt These in Chapter 8 


Expressions 


ABS (n) The absolute value of n. 


Anything else 


In BASIC, arithmetical operations are carried out according to 
standard rules of priority. 


The priority can be changed, if required, by using brackets. 
Calculations can be done in command mode, without affecting 
any programs in memory. 
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Over and Over and 
Over Again 


Remember the sorcerer's apprentice in Chapter 3? Here is a simple 
mathematical model of a broom filling a 150 gallon water tank at the 
rate of 4 gallons of water per trip. Type in this program: 


16 LETW=6 
20 LET W=W+4 
30 PRINT W, 
40 GOTO 26 


Line 10 sets the water in the tank (W) at @ at the start. 

Line 26 adds 4 gallons to the tank. 

Line 30 prints the total number of gallons added to the tank (note 
the comma). 

Line 40 contains an important new statement saying 'go to line 20 
and continue running the program from that line'. In other words, 
'take another trip to the well for more water'. 

Can you predict the output of this program? Well, now RUN it 
and see if you were right. 

GO TO is certainly a cheap way of generating numbers! We have 
made a loop in lines 20 to 40, and each time round the loop we are 
adding 4 gallons of water to the tank. It stopped at 368 gallons, but 
only because the screen was full — the error code 5/30 tells us that. 
No wonder your feet are feeling wet! 

in Chapter 3 we saw that we need to include a ‘conditional jump’ 
in the loop to check whether the tank is full. Type in this program — 
the first three lines are as before — and RUN it: 


16 LET W= 

20 LET W=W+4 

36 PRINT W, 

40 IF W«150 THEN GO TO 20 
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50 PRINT 
60 PRINT 
7Ó PRINT "THE TANK IS FILLED, О MASTER” 


That worked pretty well, apart from the last 2 gallons which slopped 
over. Line 40 is the vital one, which is saying, ‘check the present 
value of W, if itis less than 150 then go to line 26 and round the loop 
again, but if W is not less than 150 then go to the next line (50) 
BASIC is a nice concise language. | 


Relational Operators 


The general form of our statement in line 40 is: 


IF something is true THEN do something. 
(e.g. W« 150) (e.g. GO TO 20) 


We must always follow the IF keyword with a statement using one 


of the three relational operators which are used to compare two 
items: 


7 (equals) 
< (is less than) 
7 (is greater than) 


On either side of the relational operator are the two items being 
compared. hese may be variables, numbers, or expressions using 
variables and/or numbers, as shown in these examples: 


FA«Ó THEN... 

F B>99 THEN... 
ЕС<ОТНЕМ... 
Е2%Е<50ТНЕМ... 
FF+999>13*G THEN... 


We can also use the logical operator NOT with the relational 
operators, like this: 


г NOT A=75 THEN ... means ‘if A is not equal to 75 then 
о... 


si 


milarly: 


F NOT B»100 THEN... 
F NOT C<66 THEN... 


and so on. 
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IF Something is True THEN What? 


We dealt with IF, so now for THEN. THEN isa ‘token’ (SHIFT 3) 
which always produces the (КІ cursor, calling for a keyword 
statement to represent ‘do something’. ZX80 will accept any 
keyword here, but only the following make sense: 


PRINT 

GO TO 

LET 

INPUT 

STOP 

POKE These will be covered 


GOSUB f in later chapters. 
CLS 
RET 
Here are some examples of lines containing conditional statements: 


10 1E Z>21 THEN PRINT “OVER 21 AND BUST” 
26 IF Y=260 THEN GO TO 1000 
30 IF X>300 THEN LET X- 300 


GO TO Where? 


Whether our GO TO is compulsory or conditional, it must be 
followed by a valid line number! In this way you can direct the ZX80 
to go to any line in your program, either before or after the GO TO 
line. You may write the line number either asa line number, or a 
variable, or an expression (of course, any variables used must have 
ined). | 
eet that И you say GO TO a non-existent line, the ZX80 will GO 
TO the first line following that one. 


What About STOP? 


With all this GO TOing in the program, it's as well to know how to 
stop! Type in this simple number testing routine, which could form 
part of a longer pontoon program. 

106 LET T- 18 

200 iF T>21 THEN GO TO 566 

300 PRINT "YOUR SCORE IS T 

500 PRINT "OVER 21 AND BUST” 
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RUN it — there is obviously something needed to stop the 2Х80 
going charging on and doing both lines 300 and 500 — so type in 
400 STOP (keyword S). The error code 9/400 simply says that the 
program has STOPped at line 400. Now you can try putting in 
different values of T in line 100 — make sure you get the answers 
you expect. 


Finally, here are two problems, each to be solved by a loop 
containing an IF . . . THEN statement. 


Exercise 9.1. Inflation 


You earn £80 a week now, but at the end of each year your pay is 
increased Бу 20% to keep pace with inflation. How many years will 
it take you to reach £1000 a week? 


(New pay = oid pay *12/10) 


£xercise 9.2. Chess Prize 


А man so pleased the king of his country by teaching him chess, that 
he was offered any gift he wanted. He chose to have gold coins put 
on his chess board, 1 on the first square, 2 on the second, 4 on the 
third, and so on, doubling each time, How many coins were 
needed for the first 15 squares? Why not the first 16 squares? 


We Learnt These in Chapter 9 


Statements 


GOTO n sends the ZX80to the line numbered n (or if line n does 
not exist, to the next line after n). 

IF... THEN. IF tests whether some statement is true; if it is, THEN 
orders the ZX80 to do something (e.g. PRINT, GO TO, LET), If the 
statement is not true, the ZX80 continues with the next line of the 
program. 

STOP makes the 2Х80 stop the program here. 


Anything else 


Relational operators 
A=B (A equals B) 
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C>D (C is greater than D) 


E«F (E is less than P) | 
A statement like this always goes between IF and THEN. 


NOT is a logical operator which can be used with IF 
eg. IF NOT X= 100 THEN GO TO 250. 
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Flowcharts 


Weare ableto write quite complicated programs, nowthat we have 
learnt about loops and conditional branching. At this stage, it is 
worth reminding ourselves about flowcharts as an aid to good 
programming. 

Suppose you have some operation for which you want to write a 
program -- let's use the sorcerer's apprentice idea from Chapter 3 
as an example. The idea of a flowchart is to split the operation up 
into separate stages, to write each stage in a box, and to join the 
boxes by arrows to show the order in which the stages have to be 
done. We use boxes of these shapes: 


Beginning or end. D 


‘Processing block’ — one 
stage of the operation which 
needs no decision. 


‘Decision diamond’ — here a 
question is asked and the 
flowchart branches to either 
side depending on the answer. 
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Now we can draw up a flowchart for filling the water tank from 
the well. Compare it with the original program in Chapter 3, and 
with the mathematical model in the last chapter. Notice how the 
place of the decision diamond is taken by the IF... THEN... 
statement. 

Some people can carry a flowchart in their heads and type out a 
program direct. However, most of us will benefit from drawing up a 
flowchart on paper first. We'll see more examples of flowcharts for 
ZX80 programs later. Also read through Chapters 5 and 7 of the 
ZX80 Operating Manual. 


Broom filling water tank from well 


Pick up bucket 
Go to well and 
fill buckets 


Return and 
empty buckets 
into tank 


Is the tank 
full yet? 


Report 
“Tank full’ 
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Data Please 


Let’s go back to our program for converting temperatures, listed at 
the end of the book as the answer to Exercise 8.2. It worked well, 
but with the snag that to convert a different temperature we need to 


re-type line 1@ and RUN again. Surely we can do better than that! 
Well, try this one: 


40 INPUT F 
50 LET С= (Е--32)*5/9 
60 PRINT Е; DEGREES Ғ- С)“ DEGREES C" 


We have replaced LET F «77 by a new statement INPUT F. Now 
RUN the program — do you see the double cursor 5) on the 
otherwise empty screen? The cursor is saying, 'entera number now, 
and then press NEWLINE’. Do it now, type in 77 and then 
NEWLINE. You will get the immediate output: 77 DEGREES Е-25 
DEGREES C. The program has accepted and used the value for F 
which you INPUT, just as though there was a LET F=77 statement. 
RUN the program again, and INPUT different values for F. 

Let's add more lines to make a better version: 


10 PRINT “РАНК. TO CELSIUS CONVERSION” 
20 PRINT 


30 PRINT "TYPE IN NEXT FAHR. TEMP. NOW” 
40 INPUTF 

50 LET C-(F-32)*5/9 

60 PRINT F;” DEGREES F = '';C;” DEGREES С” 
76 GO TO 30 


This time we have added a title (line 10) and a ‘prompt’ (line 30) 

which tells you what data is to be INPUT. Finally we have put in a 

GO TO in line 70 to make the program loop back for more data. 
RUN the new program, and type in lots of different temperatures. 
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Still something lacking, isn't there? Up to ten temperature conver- 
sions are shown, but in rather a squashed up way, and then the 
program stops with a 'screen full' error code. Try adding these lines: 


45 CLS 
65 PRINT 


Much better now — a single answer printed and then a request for 
more data. It's all thanks to CLS, which is an instruction to clear the 
screen. We INPUT our next value for F, and then line 45 clears the 
screen ready to receive the next answer printed by line 60. You'll 
find that, in programs with lots of output, CLS is vital to prevent the 
screen filling up and stopping your program. 


Breaking Out of Loops 


If you carry on using this program, you will notice that you are in a 
bit of a fix. What happens when you want to stop converting 
temperatures? Sure, you can unplug the power supply, but then 
your whole program is gone. You are in a number INPUT loop, and 
the way to get out of it isto input a letter (one which is not a variable 
name in the program) instead of a number — this stops the program 
with a 2/40 error code, meaning ‘variable name not found’. 

Now a different kind of loop. Change line 40 to read 4Ó LET F — 77, 
and RUN again. INPUT has gone now, and we are in an infinite loop 
caused by bad programming. The poor old ZX80 is buzzing round 
and round lines 30 to 70, and while this is happening there is no 
output, only a grey screen. Press the BREAK key — it's atthe bottom 
right of the keyboard — to get out of the loop. BREAK is a certain 
way of stopping the ZX80 while it is working with a blank screen. 


Exercise 11.1. Running Average 

You remember how to work out the average (arithmetic mean) of 
some numbers — add them all up and divide by the number of 
items. Write a program in which you INPUT items one at a time and 


calculate the running average (the average of all the items entered 
so far). 


We Learnt These in Chapter 11 
Commands 


BREAK stops the ZX80 while it is working. 
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Statements 


INPUT to stop the program and insert numerical data, 
CLS to clear the screen and make room for more output. 


Anything else 


INPUT loop. Makes the ZX80 repeatedly stop t. 
then ор. Мак y stop to accept data and 


Enter a letter to break out of a numerical INPUT loop. 
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First Edition 


We know two ways of correcting mistakes so far. We can use 
RUBOUT while we are typing a line or an INPUT, or we can delete 
or replace an entered line by typing its line number plus а new 
version. | | 

"m need to make a small change in a long, entered line, the first 
method will not work and the second takes a lot of time. The answer 
is to EDIT the line. 


The Current Line Pointer 


Let's look at the program first. Assume that you have the ‘Average’ 
program from Chapter 11, listed in the answer to Exercise 11.1. We 
want to make changes to one of the lines in the program: 


Line 40 Insert THE between INPUT and NEXT 
Delete ITEM and insert NUMBER in its place. 


If you look at the program on the screen you will see that one of the 
line numbers is followed by a black cursor with a white arrowhead 
— the current line pointer. Unless you have moved it, it will be at 
the last line you typed in. | | | 

The first essential is to move the current line pointer to line 40, 
and we can do this in different ways: 


(1) Use the key 4M(SHIFT 7) to push it up, line by line. 
Q) Type LIST 40 NEWLINE. m | 
(3) Send the current line pointer to (theoretical) line @ by typing 
LIST NEWLINE or HOME (SHIFT 9), then use key<>(SHIFT 6) to 
push it down, line by line. 
Try all of these methods, until you really can make that current 
line pointer go where you want. 


40 


EDITing a Line 


Now type EDIT (SHIFT NEWLINE) and you will see line 40 appear at 
the bottom of the screen with the usual ІК cursor after the line 
number. 
Press the > (SHIFT 8) key, and see the cursor skip past the 
keyword PRINT and change to [L]. Keep pressing repeatedly until 
the cursor is just beyond the T of INPUT, and then type in your 
addition which is: 
space THE 


Now press » until the cursor has gotto the end of ITEM — if it goes 
too far, bring it back with а (SHIFT 5). Press RUBOUT four times to 
get rid of ITEM and then type NUMBER in its place. 

Finally press NEWLINE, and your ED!Ted line goes into the 
program in place of the original version. 


Renumbering Lines 


We'll change line 100 to become line 105. Hard to do on many 
computers, but child's play for the ZX80. 

Type LIST 100 and then EDIT, to put line 100 on the chopping 
block. Press RUBOUT once, to get rid of the second 0, type 5 in its 
place, and then NEWLINE to put the renumbered line in the 


program. Old line 100 is still there — you'll need to type 100 
NEWLINE to erase that. 


Another use for LIST 


When a program takes up more than 22 lines of screen, the ZX80 
can only show the last line entered and some of the other lines. 
With a very long program, the height of screen available shrinks so 
that even less can be seen. Picture the top part of your screen as а 
window which is only high enough to view part of the program ata 
time. Then you can move the window up and down by typing LIST 
(to see the beginning of the program) or LIST (line number) to see 
that line plus as many other adjacent lines as possible. 


Exercise 12.1. Editing 


EDIT your present program as follows: 
Change line 105 to read: 
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105 PRINT №; NUMBERS SO FAR" 


Renumber line 110 to become 130 
Type two new lines: 


110 PRINT 
120 PRINT "AVERAGE =”; A 


RUN the program to make sure it works, but don't lose it — we will 
need it in Chapter 13. 


We Learnt These in Chapter 12 


Commands 


EDIT brings the current line to the bottom of the screen for 
editing. | 

LIST shows the beginning of a program with up to 22 lines in all, 
and sets the current line pointer at 0. 

LIST n shows line number n of the program, with up to 22 
adjacent lines, and sets the current line pointer to that line 
number. 


Anything else 


Vertical arrows to move the current line pointer up or down. 

Horizontal arrows to move the EDlTing cursor backwards or 
forwards on a line. 

EDiTing and renumbering lines. 
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13 


A Program Worth Saving? 


The ZX80 has a nominal 1K of RAM, which can hold 1024 bytes of 
information. Any one of these can be produced immediately on 
demand. This ís wherethe program which you are currently using is 
stored. If you put in another program, or if you switch off the ZX80, 
all the contents of the RAM are lost. Hence you must have backing 
storage, in which you can keep finished programs and data until you 
need them again. 

Most domestic cassette recorders can act as backing storage for 
the ZX80, and since your longest programs will take less than a 
minute of recording time, costs are low. 


How to SAVE a Program 


ideally, the cassette recorder should be of good quality, with clean 
recording and playback heads, and with 3.5 mm jack sockets for 
microphone and earpiece/extension speaker. If it has a round 5-pin 
DIN socket for the microphone, you will need an adaptor from a 
radio parts shop. A tape footage counter will be of tremendous 
value for finding programs on a long tape. 

The following routine has given me good results, but bear in mind 
that cassette recorders vary and you may haveto experiment a little. 


(1) Wind your tape to the beginning, set the counter to zero, and 
then wind the tape on to a suitable space. 

(2) Most tape recorders now have automatic recording level 
control. If not you will have to find a suitable recording level 
setting. 

(3) Make a written note of the counter reading and the program to 
be recorded. If no counter, record the program title on the 
tape, using the microphone on your tape recorder. 
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(4) Use one of the Sinclair double jack plug connectors to join the 


ZX80 'MIC' socket to the 'MIC' socket of your recorder. Saving Variables 


(5) Start the tape recorder on 'RECORD', press SAVE and if your program has been RUN before SAVEin i 

e > g and some variabl 

NEWLINE on the ZX80. have been INPUT, all of these will have been SAVEd with the 

(6) For 5 seconds you will see a grey, even pattern all over the program. If you want to avoid losing these variables next time you » 
screen. Then you will see a rapid succession of contrasty, black use the program, type GO TO 1 instead of RUN. With some long 
and white lines — these show that the program is being programs you can save RAM space in this way by generating 
recorded. When the recording is finished, the program listing variables and then erasing program lines to make room for more. 


reappears on the screen. 


(7) Wait about 5 seconds, without stopping the recorder, and then 


press SAVE and NEWLINE again to make a second recording. We Learnt These in Chapter 13 


| have found that my first recordings are hard to LOAD, while 


second ones are alright, perhaps due to some trouble with Commands 
automatic recording level. In any case, it's good practice to SAVE a 
program twice, ‘just in case’. SAVE to record a program from the ZX80 for future use. 


LOAD to put a program from tape into the ZX80. 
GO TO 1 (instead of RUN) to run a program without losing 


How to LOAD a Program variables which are already in memory. 


Some time you'll want to put your program back into the 2Х80 to | 
RUN it again or improve it. This is the way to do it. | 


(1) Wind your tape to the point where you started recording the 
program, using the counter or the voice identification as a 
| guide. 
(2) Set the TONE control to MAX, or TREBLE to MAX and BASS to 
MIN. Set the volume control to MAX. 
(3) Connect the ZX80 ‘EAR’ socket to the ‘EAR’ socket of your tape 
recorder. You can also use the extension loudspeaker socket, 
ut note that the DIN socket is no good, as it does not give an 
amplified signal. 
(4) Press LOAD and NEWLINE, and immediately start the recorder 
on ‘PLAYBACK’. | 
(5) For 5 seconds you will see the grey even pattern, and then this | 
will change to ‘heavy driving rain’ falling from top right to | 
ottom left of the screen, showing that the program is 
LOADing. 
(6) Afterasuccessful LOAD, the screen will clear and some or all of 
the new program will be seen listed on the screen. 
(7) If this does not happen after a minute, or if there are other signs 
of a bad LOAD, you will have to stop LOADing by pressing 
BREAK, or else by unplugging the ZX80 power supply. Rewind 
the tape and try again, perhaps at a lower volume setting. 
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14 


Over and Over... 
Ten Times Exactly 


In Chapter 9 we met the loop, and saw how important it was to 
include an IF... THEN statement to jump out of the loop when 
some given condition was met. You could easily design a program 
to take exactly ten trips round a loop . . . couldn't you? 


16 LETJ=6 
20 LET]-]- 
30 PRINT J; TIMES ROUND THE LOOP” 
40 IF NOT J=16 THEN GO TO 26 

50 PRINT 
60 PRINT “STOPPED FOR A REST" 


Type it and RUN it. 

No trouble at all — but wait — ZX80 BASIC has a special set of 
instructions to do just the same job in a more economical and 
flexible way. 


Delete line 10 
Rewrite line 26 FOR J=1 TO 10 
(FOR is keyword F, TO is token 4) 
Rewrite line 4@ NEXT J 
(NEXT is keyword N) 


Now RUN it again — the output is identical to the first — FOR/NEXT 
is a real winner! The complete program is shown opposite, together 
with a flowchart. Here are a few general points: 


(1) J is the loop control variable, which can be given any single 
letter name from A to Z, though you must not use any variable 
names which are already in your program. 

(2) РОК Ј= т TOn 
n must be greater than m, otherwise you will only go once 
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Ten times round a FOR/NEXT loop 


20 FORJ=1to 10 SetJ = 


Do something 


30 PRINT J; TIMES 


ROUND THE 
LOOP” 
40 NEXT] 
Yes Is J 


greater than 10 
? 


50 PRINT 
60 PRINT “STOPPED | Rest of program 
FOR A REST” 
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round the loop. Apart from this, m and n may be any number We Lear ; 

uh А ; ^ И . nt Т 

within the range + 32766, any variable (previously defined) or t These in Chapter 14 
any expressions using variables, numbers or both. All these are 


legal, for instance: Statements 
FOR J=@ то 100 5 
FORJ -10TO — FOR... TO... . NEXT to send the 2Х80 Med — 
FORJ- 1010. number of times. e round any loop a fixed 


FOR J=BTOB+19 
FOR J =23+B TO A*17 


(3) NEXT J increases] by 1 and then compares it with n. If] is equal | 
to or less than n, then we go back and through the loop once | 
more. If] is greater than n we go on to the line after NEXT J. Note | 
that J ends ар as п+ 1. | 

(4) Inside the loop may be any number of lines with any of the 
usual BASIC statements. You can even include an ІР, . . THEN 
statement to jump out of the FOR/NEXT loop before it is | 
finished. E 

(5) You can have a FOR without a NEXT — the program will ignore 
it. However NEXT without FOR will stop the program with a 1/n 
or 2/n error code. 


Now try these examples, using FOR/NEXT loops in your answers. 


Exercise 14.1. Savings 


You are saving up for a new ZX80 at £99.95, and you put a different 
amount into your piggy bank each month for a year. Write a | 
program to INPUT each monthly amount, and calculate and display | 
the total saved at the end of each month. 

Include a reminder to send for your ZX80 when you have saved 
enough money. 


Exercise 14.2. Compound Interest 


You put £100 into a building society which pays 9% compound 
interest annually, and leave it there for 7 years. Write a program to 
work outthe capital at the end of each year, and print out a heading 
and a table showing YEAR and CAPITAL. The vital maths is: 


| 100 x 109 
After 1 year, capital = 100 =109 


After 2 years, capital = 9109 etc. 
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15 


Big Fleas Have Little 
Fleas... 


Although our programs in Chapter 14 all had a single FOR/NEXT 
loop, you are by no means restricted to one. Type in this program 
and RUN it. 


16 FORJ-1TO 5 
20 PRINT “LOOP 1" 

36. NEXT] 
9950 PRINT 
9960 FOR]-32760 TO 32766 
9970 PRINT “LOOP 2" 
9986 NEXT] 


There is usually no objection to using the same variable to control 
more than one loop — it is reset to the correct number when it 
meets a new FOR statement. You may find that it helps in 
programming to mark the loops as above. 


Loops Within Loops 


Now take a look at this program and see if you can predict whatthe 
printout will be: 


16 FORJ=1TO4 

20 PRINT “OUTSIDE LOOP” 
30 FORK=1TO3 

аф PRINT, “INSIDE LOOP” 
5) NEXT K 

60 NEXT] 


Type it and RUN it -- were you right? This is the simplest example of 
nested loops, which need a little careful organisation. 
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(1) Your loops must not overlap — inner loops must be entirely 
within outer loops. 

(2) You must use different control variables for nested loops. 

(3) Subject to the above rules, you may nest up to 26 loops if you 
wish. At this point you run out of variables! 


You must be getting good at predicting outputs by now — try your 
hand at this one. 


10 FORJ=1TO3 

20 PRINT "OUTSIDE LOOP” 
30 FORK-1TO3 

40 PRINT, “1ST INSIDE LOOP” 
50 NEXTK 


60 FORK-1TO2 
70 PRINT,, “2ND INSIDE LOOP” 
80 NEXTK 

90 NEXT] 


And now for a tricky problem. 


Exercise 15.1. Number Square 


Here is one of the number squares that you used at school:— 
0 2 3 4 5 6 7 8 9 


10 1 12 13 14 15 16 17 18 19 
20 2 22 23 24 25 26 27 28 29 
30 3 32 33 34 35 36 37 38 39 
40 4 42 43 44 45 46 47 48 49 
50 5 52 53 54 55 56 57 58 59 
60 6 62 63 64 65 66 67 68 69 
70 7 72 73 74 75 76 77 78 79 
80 8 82 83 84 85 86 87 88 89 


90 9 92 93 94 95 96 97 98 99 


Write a program to draw one of these squares. Clue — use two 
nested loops and make the maximum use of J and К. 
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Exercise 15.2. Chessboard 


Write a short program using nested loops to draw a picture of a 
chess board. Not a very good picture, because you'll have to use W 
for a white square and B for a black square. Spread out your letters 
with spaces in between, and remember that the bottom right square 


is white. 
УУ ВМ... 
BW... 
WB... 
B...etc. 


We Learnt These in Chapter 15 


A program may have any number of separate FOR/NEXT loops. 
Loops may be nested within each other, provided that certain 


rules are obeyed. 
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16 


The ZX80 Gets Friendly 


Weknow how to handle numbers in flexible ways by making use of 
numerical variables, defined either by LET or INPUT, and we can do 
the same with strings. 


literal Strings 


We met these in Chapter 4. We simply use PRINT followed by the 
string enclosed in quotation marks, and the string may contain any 
characters except ”. Note that, though a string may consist of a 


number we cannot do any arithmetic with it — it looks like a 
number but behaves like a word. 
10 PRINT 410” 


20 PRINT “ LORDS A-LEAPING" 
The output is: 
16 LORDS A-LEAPING 


Literal strings are very useful, provided that we only want to use 
them once in a program (or once each time round a loop which 
contains them). 


String Variables 


Type this program and RUN it: 


100 LET A$ NINE” 
110 LET B$=” LADIES DANCING” 
120 PRINT A$;B$ 


Here we have two string variables. The first is "NINE" (it could 
equally well have been "'9") and is called АЎ, the second is 
“ LADIES DANCING” and is called B$. These are kept in the ZX80 
memory (until we change them or switch off) and we can use them 
as often as we like. All the usual punctuation rules apply, and we 
can use string variables in loops. Try adding these lines to your 
program: 


130 PRIN 

40 PRINT B$, A$ 
50 PRINT 

60 PRINT A$ 
70 PRINT 

80 PRINT BS 


RUN the program and then add these lines: 

15 FOR J=1TO9 

25 NEXT] 

and RUN again. 

It's quite an art, handling strings — you need plenty of practice, 
but you also need to know these rules: 


(1) A string variable consists of any characters — numbers, letters, 
graphic blocks, punctuation (but not ^), and spaces — enclosed 
within a pair of quotation marks. 

(2) 26 names are available for string variables, consisting of a letter 
followed immediately by $ (you can use, for instance, a string 
variable A$ as well as a number variable A in one program). 

(3) You can define string variables with the statement LET, and you 
must define them before you use them. 

(4) String variables are output in the usual way by using PRINT, and 
follow all the usual punctuation rules. One single PRINT line 
may contain any mixture of string variables, number variables 
and literal strings. 

(5) If a space is required between a string variable and anything 
else, it must be included within the quotation marks. 


This loop program illustrates many of these rules: 
100 LET A$ = GREEN BOTTLE” 

110 LET B$=" HANGING ON THE WALL" 
120 FORJ=6TO 16 

130 PRINT 10--Ј; 

140 PRINT A$; 

150 IF NOT 1@-J=1 THEN PRINT 257: 

160 PRINT 

170 PRINT, B$ 

180 NEXT] 
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The next exercise is equally daft, but it does give practice in 
playing with strings. 


Exercise 16.1. Songwriter 


Write a program to print this verse: 


5 MEN WENT TO MOW 
WENT TO MOW A MEADOW 
5 MEN 

4 MEN 

3 MEN 

2 MEN 

1 MAN AND HIS DOG 

WENT TO MOW A MEADOW. 


if you are feeling really confident, turn it into an INPUT loop, ask 
how many men (1 up to 12), and print the appropriate verse. 


INPUT for String Variables 


In Chapter 11 we used INPUT to Stop the program and enter a 


number variable. We can do the same with a string variable. Try this 
program: 


10 PRINT "TYPE IN YOUR NAME NOW” 
20 INPUT N$ ) 
36 CLS 

40 PRINT 

50 PRINT "THANKS VERY MUCH, 7; М8)” 
60 PRINT 

7Ó PRINT "WHAT A PRETTY NAME" 


Now you can join in the ancient sport of computer-baiting, 
otherwise known as typing silly names'. Notice that you don't have 
to type quotes round your name, they were there waiting for you 
with the cursor ІП” Now if we add three more lines to the 
program: 

80 PRINT 


90 PRINT “TYPE NEXT NAME Now” 
100 GOTO 26 


we have a string input loop, and you can 80 on typing names for as 
long as you like. What then? These loops are very tricky to get out 
of, because whatever we type in is going to be a legal string. 
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Whatever you do, don't type EDIT, the result is a complete seize- 
up! Press BREAK and NEWLINE simultaneously and repeat this until 
you are out of the loop (the theory is that eventually you press 
BREAK while the ZX80 is working, and this stops the program). 


Exercise 16.2. Form Filling 


Write a program to make the user INPUT his Christian name, 
surname, age in years and home town. Write a sentence on two 
lines displaying all this information, and then thank him very much, 


We Learnt These in Chapter 16 


Statements 


LET to define a string variable (e.g. LET A$= “АВС”). | 

INPUT stops the program to allow the user to insert a string (e.g. 
INPUT B$). 

PRINT to print a string variable (e.g. PRINT C$). 
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Natural Breaks 


One of these four things will stop a program running: 


(1) It has come to an end. 

(2) It has reached a STOP statement. 

(3) It has filled up the screen, or produced some other error. 
(4) It has reached an INPUT statement. 


The last, INPUT, is the only convenient way of stopping in the 
middle of the program, so that it can be easily restarted. Here is an 
example: 

100 LET P=6 

118 CLS 

120 LET P=P+1 

134 FORJ=1TO 84 

140 PRINT "PAGE 'P, 

150 NEXT] 

160 PRINT "PRESS N/L FOR NEXT PAGE" 

176 INPUT A$ 

180 GO TO 116 


RUN it, and press N/L (short for NEWLINE) several times. These are 
the important stages of the program: 


(1) Clear the screen. 

(2) Collect up to one screenful of output. 

(3) Give a prompt, and then pause for INPUT so that the current 
screenful is displayed. 

(4) INPUT something so that the program resumes and goes back 
to 1. 


We can INPUT any string we like at Stage 4, but it is enough just to 
press NEWLINE, This INPUTS ‘nothing’, technically known as the 
null string. 


57 


Branching at an INPUT Pause 
Another way of using INPUT is to give the user a choice of two or 


more bran 


100 PR 


110 INPUT A$ 


ches to different parts of the program: 
INT “TYPE YES OR МО” 


120 IF A$—"YES" THEN GO TO 200 


130 PRINT "YOU TYPED NO” 

140 STOP 

200 PRINT “YOU TYPED YES” 
RUN the program twice and type "YES" апа “МО”, and make sure 
it works. Now for the snag — RUN again and type "CODFISH'' (or 


anything else you like). This program depends on having nice 
obedient users who will follow instructions, but beware! The world 
is full of vandals whose only idea is to make computer programs 
'crash'. Here is an example of a vandal-proof program to do the 


same job: 
100 PI 
110 IN 
120 IF 
130 IF 
200 Р 
2 S 
300 P 
You can 
lines, you 


9 
9 
140 СОТО 110 
б 
9 


NT “ТҮРЕ YES OR МО” 
PUT A$ 

Аў = "YES" THEN GO TO 200 
А%- МО” THEN CO TO 360 


RINT “YOU TYPED YES” 


OP 


RINT "YOU TYPED NO” 


't get round that one, can you? At the cost of two extra 
ave been made to obey the instruction, and it’s worth 


looking at the flowcharts for the two programs to see how they 
work. Remember that it’s an imperfect world, though, and with our 
1K RAM we can't always spare the space to make our programs 
crash-proof. 


We Learnt These in Chapter 17 


Statements 


INPUT to make the program stop and display screen contents. 


Anything else 


Making 


the program branch, under control of a string INPUT by 


the user. 
‘Crash-proof programs. 
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The YES/NO program 1. Subject to the atten tions of vandals 


Print “Туре yes 


The YES/NO program 2. Vandal-proof version 


Print. ‘Type 
yes or no’ 


Input an 
answer 


Yes 


answer ‘yes '? 


Yes 


answer “по? 


Print ‘You 
typed по” 


Print ‘You 
typed yes’ 
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18 


A Matter of Chance 


Random Numbers 


What are they? Let's consider a random number generator we have 
all used, the dice, We know that it can only give numbers from 1 to 
6, and also that unless it is loaded or very misshapen, each number 
is equally likely to appear. Since it is an unintelligent cube of wood 
or plastic it is not affected by anything that has happened before, 
We can turn these observations into general rules for random 
numbers: 


(1) A random number is one number drawn from any given set of 
numbers. 

(2) Each number in the set is equally likely to be drawn. 

(3) The draw is completely unaffected by previous draws. 


The ZX80 has a random number function, and we'll use this to 


throw a dice 12 times: 
100 FORK-1 TO 12 m 
110 PRINT RNDÍG (rt 
120 NEXTK 


(There is no keyword for RND, it has to be typed in full). RUN the 
program and write down the 12 numbers, then try a few more RUNs 
if you like. Certainly they are al! between 1 and 6, and they look 
reasonably random. 

Now unplug the power supply for a moment, re-typethe program 
and RUN again. Numbers seem familiar? They are identical to the 
previous batch! The problem is that the ZX80 is using a fixed 'seed' 
number and cleverly calculating a list of numbers from this. Since 
our rule 3 has been broken, we call these pseudo-random numbers, 
and these are what most microcomputers deal in. 
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Games based on a series of numbers that everyone knows are a 
bit one-sided, but luckily ZX80 has the answer. Add this line to your 
program: 


10 RANDOMISE 
(RAND = keyword J) 


Every time the ZX80 comes to the RAND statement, it picks a new 
random seed number from its own ‘works’, and all the pseudo- 
random numbers in the program come from this seed. RUN again, 
and you start with a new seed number, and a new set of pseudo- 
random numbers. 

In passing, let us notethat you can choose your own seed number 
(n) between 1 and 32767, by typing RANDOMISE(n). 

Let's extend our program now to print out more dice throws: 


14 RANDOMISE 
90 FOR }=1 TO 20 
66 FORK-1TO 12 
16 LET D=RND(6) 
20 PRINT D;"'5 
30 NEXTK 

40 PRINT 

50 NEXT} 


This time we have defined a variable as RND(6), using a LET state- 
ment. Of course, we are not limited to numbers from 1 to 6. We 
could change to different games: 


ND(2) Penny tossing (1 tail, 2 = head) 
RND(20) Dartboard 
ND(36) Roulette 


You'll find that RND(1) is not a great help — try it! 


Random Branching 


This is a useful little trick to make your program branch in two 
different ways under control of a random number. The vital 
statement is of the form: 


100 HF RND(2)=1 THEN GO TO 200 


RND(2) can only be 1 or 2, so that there is an even chance of going 
on to line 206 or simply to the next line after 100. Here is a more 
elaborate program using this idea: 


70 PRINT 
80 PRINT 
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90 PRINT 
100 PRINT "YOU SET THE ODDS ON GETTING HOME” 
110 PRINT "THE ODDS ARE 1 IN ———' 
120 INPUT A 
136 CLS 
135 LET X=RND(A) 
140 IF X= 1 THEN GO TO 206 
150 PRINT A—1;” TO 1 AGAINST GETTING HOME” 
160 PRINT 
170 PRINT "YOU DID NOT MAKE IT” 
180 CO TO 70 
200 PRINT “YOU GOT HOME” 
210 PRINT 
220 NT "THE ODDS МЕКЕ”; А-1; " TO 1 AGAINST” 
230 GO TO 76 


There is a flowchart for a simpler version of the program using odds 
of 1 in 3 shown on the next page. 


Probability 


With random numbers under your belt, you can really go to town 
on programs to study probability. You may want to take the dice 
throwing programs further, perhaps by calculating and printing out 
the frequency of all six possible results (there are two dice throwing 
programs at the end of this bool). On the other hand, you could 
turn your attention to penny tossing, and here is an exercise to start 
you off. 


Exercise 18.1. Penny Tossing 


You are tossing pennies two at a time, and score 1 for a tail and 2 for 
a head. You can get four possible results: 


ТТ (score = 2) 

ТН (score =3) 
НТ (score = 3) 
H H (score = 4) 


Write a program to toss your pennies 100 times, and add up the 


number of times you score 2, 3 and 4. Print out the results neatly 
and see if they are as you expect. 
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Input the odds, 
iin3 


Let X bea 
random numbe: 
from 1 to 3 


т 3 
fs X equal No (X = 2 or 3} 
їо 17 


Print ‘You did 
not make it’ 


Print ‘You 
got home’ 
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Project 


This is a longer-term project with no answer in this book, to design a 
game of golf for the ZX80. Start with a single hole of random length 
between 120 and 550 yards. Make the player pick a suitable club 
say from No. 1 (driver, up to 250 yards) down to No. 10 (putter, up 
to 5 yards). Give each club a range consisting of a fixed part plus a 
random part. Fix bunkers if you like, with some kind of penalty. 
After each shot, loop back for another choice of club for the next 
shot. When you have the single hole perfected, build another loop 
around it so that you have an 18 hole course. 


We Learnt These in Chapter 18 


Statements and Expressions 
RND{(n) to give a random number from 1 to n inclusive. 


RANDOMISE to set the seed number (for generating random 
numbers) to a random number. 


Anything else 


Computers usually deal in pseudo-random numbers. 
Program branching under control of random numbers. 
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It Draws Pictures as Well? 


The Characters 


Type this short program and RUN it: 


100 ҒОК)-0ТО63 
110 PRINT CHRÉ Q;" — '*; 
120 1Е 0/8)*8 =} THEN PRINT 
130 IF (/8)*8 =] THEN PRINT 
146 NEXT J 
Notes: CHR$ must be typed in full. 
Lines 120 and 130 are simply to leave a blank line after each 
line of 8 characters. 


The program will give you a neat print-out of most of the characters 
available from the ZX80 keyboard. Every character has a code 
number, and the statement: 


PRINT CHR$ (J) 
is saying, ‘PRINT the character which has the code number J’. 0 is 
the code number for a space, and 1 is for the null string — they don't 
show up. Some are missing: 
100 FOR J~212 TO 256 
would give you all the rest, including keywords and token words. 
Now change line 110 to read 
116 PRINT CHRÉ 04-128; 


0 being still Ó to 63) and RUN again. This time you have the inverse 
of your first 64 characters, white on black instead of black on white. 

Your ZX80 Manual shows a complete list of characters, together 
with their codes, on pages 75 to 77. 
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Graphic Blocks 


Have a look at page 78 of the manual. Ten of these blocks (codes 2 
io 11) are available from the keyboard, and the inverse of these 
(codes 130 to 139) via the CHR$ function. Add to these the inverse 
space (a black square, code 128) and any other characters (inverse 
or otherwise) which seem useful, and you have the basis for all sorts 
of simple pictures. 

Let's look at some ways of rawing chessboards: 


T A$« "CHESSBOARD |” 
NT AS 

NT 
RJ-1TO4 
NT" RSS GS ES NU 
NT “N SN’ 

XT J 

100 NT 

110 NT 

120 NT А5” 

130 K-0 TO 7 

140 L=@TO7 

150 IF NOT ((K+1)/2}*2=K+L THEN GO TO 186 
160 PRINT^ "5 

170 GO TO 190 

180 PRINT “N”; 

190 NE 

200 PRINT 
210 NEXT K 

300 PRINT "PRESS N/L FOR MORE" 
310 INPUT B$ 

320 CLS 
330 PRINT A$; 1” 

340 PRINT 

350 FORM-«1TO4 
360 PRINT ,'' afta 
370 NEXT M 

390 PRINT 

400 PRINT ,, "AND IV” 
410 PRINT 

420 PRINT ,,, CHR$(137) 


Chessboard II (lines 130 to 210) is the most useful one, since the 
Squares are drawn one by one, and we can use conditional 
branches to print other characters on the squares when we choose. 
This is the basis of the Fox and Hounds game at the end of this book. 


AQAA! 


Su bwn — 
555555. 
о 500г 


m 
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The Screen 


We'd better have a look at the space that we've got to draw on. А 
very simple program will fill the screen: 


10 PRINT "ZX80 "; 
20 GO TO 10 


Count along the top line — eight ZX80s equals 32 characters 
altogether. There are 23 lines from top to bottom, plus the 'screen 
full’ code, but we really ought to leave space free for an INPUT to 
continue the program. Let's see how much wé can squeeze in: 


16 LETA-5 

26 FORJ=1TOA 

30 PRINT "ZX80 "; 

аф NEXT] 

5Ó PRINT 

68 PRINT "HOW MANY "; CHRQ12); "ZX80"; CHR$Q12)"5 
DO YOU WANT?"; 

76 INPUT A 

80 CLS 

9) GOTO 26 


You'll find that 17615 the maximum -- 22 lines of 32 characters. The 
; atthe end of line 60 is needed to squash the input cursors on to the 
bottom line. Note that we did the ‘impossible’, printing ” on the 
screen by using CHR$QT2). 

This is the deepest screen available. Remember that a long 
program borrows RAM from the screen display department, and 
reduces the depth of screen accordingly. You will often have to 
compromise between a long program and a nice display. 

The next program is called "The pyramids were not built іп адау” 


100 LET N-RND(16) 

206 FORR=1TON 

300 FORB=1TON 

350 PRINT CHR$(128); 

40% NEXT B 

50) PRINT 

608 МЕХТ К 

700 PRINT "PRESS N/L FOR MORE" 
716 INPUT A$ 

726 CLS 
736 GO TO 106 


Run it and press NEWLINE a few times. By the way, you are now ina 
string input loop, and we saw in Chapter 16 that you can get out of 
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th | А ; . ; 
these by pressing BREAK while the ZX80 is working with a blank 


4 had something a bit more pointed іп mind' 
speaking). re pointed in mind' (Pharaoh Cheops 
Right, let's try: 


300 FORB=1TON-R+1 
"You've got it the wrong way up!’ 
300 FORB=1TOR 


‘Much better. Let's have a look at the back’. Add these lines: 
250 FORS-1TO N-R«1 

260 PRINT” "3 

270 МЕХТ 5 


‘Keep on trying. | think you're gettin it 

g nearer to it’. Over to yo 
now, | have not worked outthe answerto a real pyramid shape. ido 
know that you could tidy up the staircase by using CHR$(132) at the 
beginning of each line of blocks. 


Exercise 19.1. Areas of Rectangles 
Easy graphics, illustrating a com i i f 
| , puter-assisted learning program for 

young sister or brother! Write a program to draw a rectangle with 
random length and breadth, show its dimensions, ask the user to 
input area, and check (and if necessary correct) the answer. 
We Learnt These in Chapter 19 
Expressions 

CHR$(n) is equivalent to the character which has the code 

number n. 

Anything else 

Inverse characters (white or black) obtainable by using CHR$(n). 


старте blocks, ten on the keyboard and ten obtainable by using 


Screen size, 22 lines of 32 characters each e li 
INPUT prompt ch, plus one line for an 
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Playing with Strings 


Some programs put words together. You may have read about the 
theory that, given (a) a number of monkeys with typewriters and (b) 
infinite time and paper, you would eventually get the complete 
works of Shakespeare. Let's try it. 


10 RANDOMISE 
90 CLS 


100 FORJ=1 TO 80 

200 FOR K=1 TO RND(8) 

210 LET A=RND(26) 

220 PRINT CHRÉ(A + 37); 

300 NEXT K 

319 IF RND(15)=1 THEN PRINT "7; 

350 PRINT” ue 

400 NEXT J 

480 PRINT 

490 PRINT 

500 PRINT "PRESS N/L FOR ANOTHER РАСЕ” 

510 INPUT A$ 

52) GO TO 90 
RUN and press N/L a few times. You may recognise an odd word, 
but | have seen nothing of literary merit yet! 


Heads and Tails 


After that diversion, we'll pull a few words apart. Type and RUN this 
program: 

10 PRINT “ТҮРЕ ANY WORD NOW” 

20 INPUT A$ 
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30 LET A= CODE(AS) 


40 PRINT 

50 PRINT “A$=";A$ 

60 PRINT 

70 PRINT "CODE(A$) »';A 
86 GO TO 16 


INPUT the words 'ABLE', 'BAKER', 'CHARLIE'. Check page 76 of 
the ZX80 Manual where you will see that 38, 39 and 40 are the 
codes for A, B and C. The expression CODE (string) always gives you 
the code number for the first character in that string. We can use 
CODE with a string variable as above, or with a literal string (which 
must be in quotation marks). 

Now we'll change our program to use another expression, TL$: 


10 PRINT “ТҮРЕ ANY WORD NOW” 
20 INPUT A$ 

30 PRINT "A$-';A$ 

40 LET В = TLS(AS) 

50 PRINT “TL$=";B$ 

6@ PRINT 

79 GO TO 16 


Once you have RUN this program, you'll be well aware what TL$ 
does to a string! TL$ (string) chops off the first character and discards 
it, leaving the rest of the string (TL = tail). Try INPUTting some single 
character strings, and the null string (press NEWLINE to INPUT 
nothing). All of these give TL$ =the null string. 


Here is a program using CHR$, CODE and TL$ to chop up a word 
into separate letters and give the code number for each letter: 


10 PRINT “ТҮРЕ ANY WORD NOW” 
20 INPUT A$ 

30 CLS 
40 PRINT A$ 
50 PRINT 
60 PRINT СОРЕ(АЯ), CHR$ (CODE(AS)) 
70 LET AS=TL$ (A$) 

80 IE CODE (AS) = 1 THEN GO TO 16 
90 GO TO 60 


Note how we print the code of the first letter, and then the actual 
letter by using CHR$. Then we discard the first letter by using TL$, 
and loop back to 60 to deal with the next letter. When nothing is left 
(null string, code- 1) line 80 sends you back to the start. 
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Dealing with Numbers 


it is sometimes useful to take a number and turn it into a string, so 
that we can use these string handling expressions on it. We usethe 


expression STR$ to do this, e.g. 


Тф LET A$-STR$ (A) where A is a number variable 
20 LET B$ - STRÉ (999) 


(LET В%- "999" would give the same result). A$ and B$ are now 
strings, though if PRINTed they look like numbers. Note that we 
cannot convert these strings back directly into numbers. However, 
if we separate them into individual characters by the methods 
described previously, we find that the codes of these characters are 
exactly 28 more than the numbers themselves, so that we could 


laboriously put the number together again. Here is a short program 
in which you can check what is happening: 

10 PRINT “INPUT A STRING OF 10 DIGITS” 

110 INPUT A$ 

120 PRINT 

130 PRINT "THE STRING WAS ";A$ 

140 PRINT 

150 PRINT 

160 PRINT "CHAR." , “CODE OF”, CODE — 28” 

170 PRINT,"THAT CHAR." 

180 PRINT 

200 FORI-1TO 10 

210 LET N- CODE (A$) 

220 PRINT CHR$ (N), N,, N-28 

230 LET A$- TLS (A$) 

240 NEXT] 


We Learnt These in Chapter 20 


Expressions 


produces the code number of the first 

character in the string. 

TL (string) is equal to the tail obtained by discarding the 
first character from the string. 

STR$ (number or changes the number to a string having the 

number variable) appearance of the number. 


CODE (string) 
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Line ‘Em Up! 


We are going back mainly to numbers in this chapter. 


Dummy Variables 


if your program has a simple loop in which a variable (number or 
string) is generated or INPUT, then each time the ZX80 goes round 
the loop it overwrites that variable and it is lost. 


160 PRINT "TYPE IN A NUMBER" 
110 INPUTA 

120 CLS 

200 PRINT "YOU TYPED IN ‘GA 
290 PRINT 

300 GO TO 166 


Sometimes it happens that we want to keep the old value of the 
variable to compare with the next one. In that case we make a 
dummy variable of it. Add these lines to the program: 


10 LETB=6 
210 ІРА В THEN GO TO 256 
220 PRINT "THATS A CHANGE" 
230 PRINT "IT WAS ';B;* LAST TIME” 
240 GO TO 276 
250 PRINT “SAME AS LAST TIME” 
278 LET B-A 


Now we have built in a short memory for A in the form of the 
dummy variable B, and in line 210 we compare A with B (the 
previous value of A). We can use dummy string variables in just the 
same way. 
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Arrays 
ZX80 BASIC allows up to 26 single dimension arrays. An array 
provides a permanent memory for a set of numbers, and we can call 
up any member of the set at will and do any of the usual operations 
on it. This is how they work: 
10 DIM МӨ) 
5Ó PRINT N(2), МО), NG}, М) 
100 LET N()) - 12 
110 LET N(1)234 
120 LET N(2)=56 
136 LET N(3)-78 
20% PRINT NO), NG), NG), NO) 
This gives: 
0 0 0 0 
56 34 78 12 


as output. Nothing exciting yet, we could have done the same with 
ordinary number variables, but notice the DIM statement in line 19, 
which is saying ‘make room for a single dimension array containing 
four elements and set them all at 6 to begin with’. Each member of 
an array has the single letter title of the array (N in this case) 
followed by the subscript number in brackets, which shows which 
member it is, e.g. 


X(30) is the thirty-first member of the X(n) array (remember XØ). 


We don't have to use all the members of an array, though there is a 
small waste of variable space if we don't do so. 


Arrays begin to look a bit more promising when we use them in 
FOR/NEXT loops. Here's a program to illustrate the point. 


16 DIM S(15) 

20 DIM C(15) 

160 FORJ-Ó TO 15 
110 LET 50) 2]**2 
120 LET С) «J**3 
136 NEXT] 

300 PRINT “NUMBER”, “SQUARE”, "CUBE" 
310 PRINT 

320 FORJ=6TO 15 
330 PRINT }, 5), CU) 
340 МЕХТ) 


This time we have used the FOR/NEXT control variable ) to create 
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two arrays SU) and C(J). We have printed the two arrays, and they 
are still available for use later in the program. 


Arrays of Words 


Unfortunately we do not have arrays of string variables available in 
our 4K ROM BASIC, but we can handle an array of single characters 
by using their code numbers. In this program we INPUT any word, 
split it into individual letters, and store their code numbers in an 
array. We also put the original word into a dummy variable (B$) in 
case we need it later, and make a note ofthe number of letters in the 
word (N). 


20 DIM CBO) 
100 PRINT "TYPE IN ANY WORD" 
110 INPUT A$ 
120 LET В%-А% 
200 FORjJ-1 TO 36 
210 LET C() - CODE(A$) 
220 LET АФ = TLS(AS) 


230 LET N=} 
240 IF CODE(A$) - 1 THEN GO TO 350 
300 NEXT J 


Now we can print out the letters of the original word in various 


- ways. Try this: 


350 CLS 

380 PRINT B$ 

390 PRINT 

404 FORK-1TON 
410 PRINT CHR$(C(IQ) 
420 NEXTK 


Notice that in this second loop we are using C(K) to call for the 
members of the array. It is only the C and the number in the bracket 
which matters -- how the number gets there does not matter. Try 
varying the punctuation in line 410 to change the printout, and then 
see if you can predict how this will print your name: 


410 PRINT CHR$ (C(N--K + 1) + 128) 


Finally, here is a useful program to pick the items out of an array at 
random. If you tack it on to the last program (lines 20 to 300) it will 
write an anagram of your original word and invite a second player 
to guess it. 


30 LETL-Ó 


350 CLS 

380 PRINT “ANAGRAM” 

390 PRINT 

400 LET X=RNDIN) 

420 IF C(X)=1 THEN GO TO 400 
430 PRINT CHR$ (COO; 7; 


446 LETL=L+1 
450 LET CX) =1 
460 IF L<N THEN GO TO 400 


500 PRINT 

510 PRIN 

520 PRINT 

530 PRINT "MAKE A GUESS AT THE WORD” 
540 INPUT C$ 

550 PRINT 

560 P C$; 


R 

570 IF C$- B$ THEN GO TO 606 

580 PRINT IS WRONG. ANOTHER GUESS?” 
596 GO TO 546 

600 PRINT IS RIGHT. WELL DONE" 


The program is best explained by the flowchart on the next page. 


Here are a couple of exercises on arrays. 


Exercise 21.1. Moving Average 


The statistician’s delight! Your program has got to allow the input of 
six items of data one by one — they could be monthly sales figures, 
for example. The six items must be displayed, and their average 
calculated and displayed. Now we have to input a seventh item, 
and since we are only interested in the six most recent items, we 
have to throw out the first. Tricky stuff this, so here's a clue — put 
the seven items in an array, and then move each item one place 
down in the array. You can do it very simply by using a FOR/NEXT 
loop. 

Now that you have your five old items plus one new one in your 
array, display them, calculate the new average and display it again. 
Continue with the eighth item, the ninth and so оп... 

If you want to make the program really useful, add some lines so 
that you can vary the number of items which you are averaging on 
each run. Now you really have the ZX80 working for you. 
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Anagram — random sorting of an array 


C(J) is a numerical array containing N numbers. Each member of 
СО) is the code for a letter in a word of № letters. 


Let X=a 
random number 
from 1 toN 


Get C(X) from 
the array 


Line 49 


Line 428 


Print the letter 


Line 430 whose code 
is C(X) 
Add 1 19 іле 
i count o 
Line 448 letters printed 
Line 450 
Yes Have we 
i rinted all 
Line 460 the letters? 
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Exercise 21.2. Simple Bulls and Cows 


The Bulls and Cows program at the end of this book is rather waste- 
fully programmed using numerical methods. Now is your chance to 
make a start on improving it. Write a program to do these 
operations: 


Generate four random digits between 1 and 6 

Store them in an array 

Ask the player for his guess 

Input the guess as a string variable 

Split the string into characters 

Store their codes as another array 

Compare the two arrays and score a bull for each correct digit 
Print out the result 


Take great care, you'll be dealing with numbers as numbers, 
numbers as strings and numbers as codes of strings! 

There is one way in which we can produce the equivalent of a 
string array. 


100 PRINT “WHICH GIRL, 1, 2 OR 3?" 
110 INPUT A 

120 CLS 
130 PRINT "GIRL NO. "А; IS CALLED "'; 
140 GO TO 1006+ 16*A 

150 PRINT A$ 

160 STOP 

1014 LET A$=“LIZA”’ 

1015 GO TO 156 

1020 LET A$- "BETSY" 

1425 GO TO 156 

1630 LET A$- "BESS" 

1635 GO TO 156 


Here the three names are firmly linked to the numbers 1, 2 and 3, 
which could be members or subscripts of an array. 


We Learnt These in Chapter 21 
Statements 


DIM X (n) — Reserves space for a single dimension numerical 
array with n+1 members, and sets all the values in the array to 
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Anything else 


Dummy Variables — used to keep the value of some variable 
when we want to give that variable a new value. 

Working with strings — producing the equivalent of character 
and string arrays. 
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Just off to the Shops — 
Back Soon 


By now, you will have got the message that a BASIC program can be 
broken down into a number of separate operations, like the boxes 
in a flowchart. Suppose we want to do one of these operations 
several times in the course of a program, in such a way that we 
cannot include it in a loop. In that case we turn the operation into a 
subroutine, so that we can go and do it as often as we like. It is 
traditional, and very much tidier, to put all your subroutines at the 
end of your program. It's also a help to label them with a REMark if 
you have memory to spare. 

Here is a very simple program using two subroutines. We'll write 
it in stages so that you can see how they work. 


100 PRINT "SUBR DEMO" 

116 PRINT 

120 PRINT “JUST OFF TO SUBR 2000” 
130 GO SUB 2000 

200 PRINT “Ом MY WAY TO SUBR 3000” 


214 GO SUB 3000 

220 PRINT 

300 FORJ-2TO3 

310^ PRINT "LEAVING THE LOOP FOR SUBR 72)%1000 
326 GO SUB j*1006 

336 NEXT] 


(GO SUB is keyword V) 


RUN it now to see what happens. Lines 100 to 120 are obeyed, 
producing the printout you see. Line 136 has said, 'go directly to 
line 2000 and do whatever is there’. Since there was nothing at or 
after line 2600, the program stopped there. We'll put the sub- 
routines in now: 


2000 PRINT "THAT WAS SUBR 2000” 
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2010 PRINT 
3000 PRINT "I HAVE BEEN AT SUBR 3000” 
3010 PRINT 


RUN again — this time it executes both subroutines once, stopping 
at line 3010. Still more needed — take note of this: 

Every subroutine needs a RETURN. 
So we must type in: 


2020 RETURN 
3020 RETURN 
(RETURN is keyword B) 


Try again — we're nearly there. it did each subroutine twice, as 
expected, then an odd one at the end, and stopped with a 7/2620 
error code. What was wrong? We crashed into our subroutines — 
that's what. After doing lines 100 to 330, and GO SUBing and 
RETURNing according to instructions we went on to 2060 and 
2010, found an unexpected RETURN at line 2020 and stopped with 
a 7/п error (RETURN without GO SUB). One line: 


1000 STOP 
will put that right, and the program is now complete. RUN it to 


make sure. The 9/1000 error code shows that the program has 
stopped at a STOP Statement in line 1000. 


We have seen that GO SUB behaves in much the same way as GO 
TO plus an automatic return to where it came from. Let's write 
down some rules for GO SUB . . . RETURN. 


(1) On GO SUB n the ZX80 goes immediately to line n (or to the 
line following if no n exists). n may bea number, a variable or an 
expression. 

(2) The ZX80 executes the subroutine just as though it was part of 
the main program. 

(3) A subroutine must include a RETURN statement, which sends 
the ZX80 back to the line following the original GO SUB n. 

(4) You may jump out of one subroutine into another by using GO 
SUB n, but don't do it with GO TO, that will cause chaos! 

(5) A valid and useful statement is 


IF something is true THEN GO SUB n. 


(6) Use STOP as a fence between your main program and your 
subroutines, to avoid 'RETURN without GO SUB' errors. 


Now for a simple program to calculate the volume of a water tank. 
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One of two subroutines is called up, depending on the shape of the We Learnt These in Chapter 22 


tank. 
Statements 

10 LET Vea 

96 CLS GO SUB n sends th f 
100 PRINT "VOLUME OF A WATER TANK” | > program. М ne 2Х80 to execute a subroutine at the end of 
119 PR NT | RETURN. When the ZX80 reaches a RETURN statement in a 

4 " 7 i subroutine, it immediately goes back to the line after GO SUB. 
136 р ХІ WHAT 5НАРЕ IS IT? | | $ТОР. Prevents the ZX80 from crashing into subroutines after 

i executing t i y 

15@ PRINT, “CYLINDER (CYL FOR SHORT)” |[ ne tne тат program. 

160 PRINT, "CUBE" 

170 INPUT A$ 

186 CLS 
260 IF A$S= CYL” THEN GO SUB 1000 
210 IF A$="CUBE” THEN GO SUB 1100 | 
220 IF NOT V=@ THEN GO TO 300 | 
230 PRINT "DONT KNOW “;A$;” SHAPE” i 
244 GO TO 120 | 
300 PRINT | 

310 NT | 

320 PRINT "VOLUME OF 2А% = '5V; “ CUBIC CM” | 
900 STOP i 


000 REM **VOL OF CYL** | 
010 PRINT "HEIGHT IN CM? ^; | 


620 INPUT H | 
636 PRINT H | 
Аф PRINT | 
050 PRINT "DIAMETER IN CM? ”; | 
660 INPUT D 

670 PRINT О 

080 LET V=(314*(D/2)/160)*(D/2)*H 

690 RETURN 


140 REM **VOL OF CUBE** 


a 
ZAAR 
z 
ч 
“нд 
9 
о 
rm 
г” 
m 
2. 
& 
E 
T 
2 
о 
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а 
S 
A 

ТІ 
2 


1110) we PRINT the INPUT value on the same line. 


82 
83 


| 
| 
E 
| 
| 
| 
| 
| 
It is worth noticing how, after PRINTing the prompt (e.g. in line | 
| 
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It's Ever so Logical 


We used a lot of logic in Chapter 9, with IF... THEN and NOT. 
There's much more to come! 

Here is a picture of a water tank with some weird plumbing; there 
are four water taps labelled A$, B$, Y$ and Z$. 


It's a chemical engineering problem, in which we have to write a 
program to ring an alarm bell to tell us when we have left a tap open. 
Let's deal with A$ first: 


16 PRINT "SET YOUR TAPS NOW” 
20 PRINT, “O= ОРЕМ S-SHUT" 
30 PRINT 
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40 PRINT “А%15%7; 


50 INPUT A$ 
6@ PRINT A$ 
200 IF A$-'"O'" THEN GO TO 1006 
500 PRINT 
510 PRINT "EVERYTHING O.K.” 
600 PRINT 
610 PRINT “PRESS N/L FOR MORE OR 5 FOR STOP” 


620 INPUT N$ 
Е № "S" THEN STOP 

640 CLS 

650 GO TO 16 

1600 PRINT 

1010 PRINT “CLANG-A-LANG” 

1020 PRINT 

1034 PRINT "WATER RUNNING AWAY” 

1646 GO TO 600 


RUN it, and open and close A$ to make sure you get the right 
answers. Now we'll add B$: 
70 PRINT "B$ IS? "; 


80 INPUT B$ 
90 PRINT BS 


We need the equivalent of line 200 for B$, but май... we can 
include itin line 200. With A$ and B$ we һауе an either/or situation, 
only one of them needs to be open to ring the alarm. Change line 
200 to read: 


200 IF A$="O" OR B$-'"O" THEN GO TO 1000 


Did it work? Like a charm! The alarm rings if either A$ or B$ is open 
(and note that it also rings if both are open). 
Now for Y$ and Z$. We'll write in the inputs first: 


160 PRINT "Y$ IS? *; 
110 INPUT Y$ 
120 PRINT Y$ 
130 PRINT 428152 
140 INPUT Z$ 
150 PRINT Z$ 


Now have a look at the right hand pipe. What happens if Y$ is 
opened? Precisely nothing! The same applies to Z$. It is a ‘belt and 
braces' situation, because both Y$ and Z$ must be open for the 
alarm to ring. Type in the test for this occurrence: 


210 IFY$="0" AND Z$="O" THEN GO TO 1000 
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RUN the program and test it, and then combine lines 200 and 216 in 
this new line 200: 
200 IF A$-"O'" OR BÉ- "O" OR Y$- “О” AND 
Z$ =O" THEN GO TO 1000 
(line 210 deleted) 


which works just as well. There is a flowchart for this program 
opposite. 


Priorities 


These long logical statements need very clear thinking. They 
depend on the fact that the ZX80 tests all the statements in а specific 
order: 

NOT (higher priority) 

AND 

OR (lower priority) 
This is rather like the performance of the arithmetical operations in 
a fixed order (Chapter 8). Again we can change the order or 
emphasise it, by using brackets. For instance, this line: 

260 IF А-О” OR B$-"O' OR (Y$- "O" AND Z$="0") 

THEN GO TO 1006 


has exactly the same effect as before, but is perhaps easier to 
understand. 


Exercise 23.1. The Water Tank 


We are scrapping our water tank (never did like that plumbing 
system!) and putting in a new one with one outlet pipe (branched) 
fitted with three taps, A$, B$ and C$. Change the input lines to fit 
these three taps, and then type in this logic line: 

200 IF A$-"O' AND (B£- "О OR C$-"O") THEN GO TO 

1000 

RUN the program with various combinations of open taps and 
deduce the new layout of pipes and taps. 


Exercise 23.2. The Cashbox 


Our town council is run by two pairs of brothers, Bob and Tom 
Jones, and Bill and Dick Brown. The town funds are ina large steel 
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Water tank — is the water running away? 


15 tap 
A$ open? 
Is tap 
B$ open? 
15 tap 
Y$ open? 


‘Everything 
O.K? 


chest, and since the two families trust each other not one inch, they 
fixed it with four combination padlocks, one of which could be 
opened by each man. 

This turned out to be highly inconvenient since they were hardly 
ever present all at once. So, they called on the logical town 
blacksmith to work out a system of hasps and padlocks, so that the 
chest could be opened by either of the Jones family plus either of 
the Brown family (the padlocks and combinations were 
unchanged). Write a program to call the council roll and announce 
whether the chest can be opened. Can you sketch the arrangement 
which the blacksmith might have made? 

Science of Cambridge now offer a plug-in expansion pack giving 
an extra 16K of RAM (see Appendix 5). 


Logical Values 
There is nothing in this last section which can not be done by the 


use of IF, THEN, AND, OR and LET, so you can skip it for the present 
if you wish. However you'll need to come back to it when you are 
writing long programs and beginning to run short of RAM space. 
Type this program: 
ф PRINT “LOGICAL VALUES” 
20 PRIN’ 
30 PRINT 
40 PRINT ‘A="; 
50 INPUT A 
60 PRINT A 
166 PRIN’ 
110 PRINT “(А = 10) IS; A- 10 
120 PRINT "(A«50) 15 4; А<50 
130 PRINT “(A>9@) IS '; A» 90 
200 PRIN] 
210 NT "(A216 AND 77) IS ^; A= 10 AND 77 
220 T "(A«56 AND 98) IS “; А<50 AND 98 
230 PRINT "(A»90 AND 123) IS’; А>90 AND 123 
300 PRINT 
310 PRINT "(A- 10 OR 13) IS; А= 16 OR 13 
326 PRINT “(А<50 OR 44) IS“; А<50 OR 44 
330 PRINT "(A»90 OR 999) IS ''; А>90 OR 999 
660 PRINT 
610 PRINT 
620 PRINT "PRESS N/L FOR MORE" 
630 INPUT A$ 
640 CLS 


656 GOTO 10 
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Now try running the program and inputting vari 
| i putting various values of A 
satisfy the different conditions: 8 ° 


А=1@ А<5@ А>9@ 


Each of these three expressions can be true or false, depending on 


what the value of Ais. Look what happens when we put the value of 
Into A. 


Expression True or false Logical 
when A=10 Value 
А-10 True -1 
А<50 True -1 
A>% False 0 


Wecan also combine expressions like these with a number, using 
AND or OR, giving effects which are shown in the program above. 
Let's summarise all these logical values. 


True =—1 
False = 6 

True AND x=x 
False AND x= 
True OR x=—1 
False OR x «x 


A useful way to use these is in a LET statement: 
LET Z=(A=10) ` 
This is equivalent to saying: 


IF A=10 THEN LET Z=~1 
IF NOT A= 10 THEN LET Z=6 


Similarly: 
LET X=(A<50 OR 99) 
which is equivalent to: 


IF А<50 THEN LET X=—1 
IF NOT А<50 THEN LET X=99 


If your head is spinning, | suggest that you note the fact that these 
logical values exist, and come back to this chapter later. It will save 
you a lot of program space! 


We Learnt These in Chapter 23 


Logical statements NOT, AND, OR to use with our IF... THEN 
statement. ` 
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Priorities (NOT>AND>OR) used in working out logical 


statements. 
Logical values 
True=—1 


False =ø 


True AND х=х False AND x=@ 


True OR x=—1 
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FALSE OR x «x 
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Thanks for the Memory 


Binary Arithmetic 


Computers always work in binary arithmetic, in which every digit 
must be 0 or 1. The ZX80 memories consist of a large number of 
‘pigeon-holes’ or bytes, each containing 8 binary digits or bits. So, 
one single byte can contain numbers from: 


00000000 (0 in decimal system) 
up to: 
1111111 (255 іп decimal system). 


Now you see why the ZX80 character set contains 256 items! Each 
one of them can be stored as a code number in one single byte of 
memory. 

Numbers need two bytes of storage: 


First byte ШІ | 


least significant part of number (0 to 255) 


LILLLI] 
Second byte 
EE 
sign of most significant part of number (0 or 256 to 32512) 
number 
(0= +,1=-) 


Hence, two bytes will hold a number in the range + 32767, already 
mentioned in Chapters 7 and 8. 
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Every byte in a computer memory is numbered so that it can 
easily be found and its contents inspected or changed. This number 
is called the address of the byte. 


ZX80 Memories 


The first slice of memory consists of about 4000 bytes of read only 
memory (4K of ROM). This contains the BASIC interpreter, the 
character set, the operating system and monitor, all needed to run 
the BASIC programs that are typed in. ROM can be read and used, 
but it cannot be changed in any way. 

The next slice of memory is about 1000 bytes of random access 
memory (1K of RAM). This is the part which accepts the program 
and variables as they are typed in, and unlike ROM, all the contents 
are lost when when the ZX80 is switched off. The layout of the RAM 
is described in some detail in the ZX80 Operating Manual. The first 
40 bytes contain the system variables (temporary records needed 
by the ZX80, see Appendix Ш of the Operating Manual). The 
programs start at address 16424, and immediately following the 
program come the various spaces taken up by the variables, the 
working space, the display file and the stack. As more program is 
typed in, so the spaces move along to make room for it. Eventually, 
the variable space or the display file spaces become so cramped 
thatthe program stops with an error code 4/n (no room to add more 
variables) or 5/n (no more room on screen). 


What's In a Byte? 


PEEK is an aptly named expression — it lets you look into any byte of 
memory and discover what is stored there. Its general form is PEEK 
(n) where n is the 5 digit address of the byte being PEEKed. PEEK (n) 
is a number from О to 255, and it can be used just like any other 
number or variable, e.g. 


PRINT PEEK (n) 

LET Х-РЕЕК (n) 

IF PEEK (n) = 29 THEN... 
PRINT CHR$ (PEEK (n) 


Here is an example of the use of PEEK, using the fact that address 
16426 contains the position on the line of the next character to be 
printed, and 16421 the position of the current line on the screen. It 
is a subroutine which will print a title word anywhere you like on 
the screen. 


92 


16 
20 
30 
40 
50 
60 
70 
960 


600 
016 
026 
030 
046 
650 


PEEKing in 
takes one ch 


PRINT "LINE NO. (1 TO 22)?" 
NPUTL 


NPUT S 
CLS 

GO SUB 1000 

PRINT “САТ” 

STOP 

F PEEK (16421) +L=24 THEN GO TO 1030 
PRINT 

GO TO 1000 

IF PEEK (16420) +5 = 34 THEN RETURN 


СОТО 1036 


PRINT "CHARACTER NO. ON LINE (1 TO 32)?" 


othe middle of your program is no use, because it only 
ange in a program line to shift the whole program a 


byte or two along in memory. However, here is a program which 


PEEKs 
array. 


punctu 


1 

20 
50 
60 
70 
80 
90 
166 
210 
220 
230 
249 
250 
260 
270 
280 
290 
900 
1000 
1010 
1020 
1030 
1100 
1110 


DIM P(5) 


P 
PRINT 
N 


EM TTOM,2DICK, 3HARRY,4JOHN, 5CHARLIE, 


RINT "MAX. MARK ? ''; 


R 
RINT "ENTER MARK FOR EACH BOY” 


R 
RINT "МАМЕ", PER CENT” 
RINT 


"OR N=1TO5 
GO SUB 1060 
NPUT M 


ET P(N) = M*100/MX 
NT,P(N) 


EXT N 


TOP 


ET A= 16426 


F PEEK(A) = CODE(STRS(N)) THEN GO TO 1100 


ЕТА=А+1 


GO TO 1616 


ETA=A+1 


LET A$ = СНЕЗҘ(РЕЕК(А)) 


e first line of a program to give the equivalent of a string 
ype line 1 very carefully with the spaces, numbers and 
ation exactly as shown. 
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3 
1120 IF A$-'," THEN RETURN 300 INPUTP | 
1130 PRINT A$; | 316 CLS i 
1144 GO TO 1160 | 320 IF (PEEK(16414) + PEEK(16415)*256—4)>A*50 THEN СО | 
it’s a gift for busy teachers! Line 1 contains the class list as a REM | 330 c THEN GO TO 400 | 
statement. The FOR/NEXT loop in lines 230 to 290 fixes М, the | 346 Р NT "WRONG" B. XC ВАС 2 
subscript number of the boy, and goes to subroutine 1000 to PEEK 356 LETW- WT (n = 
the boy's name from line 1, character by character, and PRINT it. 360 Се TO 526 
RETURN to the loop, pause to input the mark, convert it to a | 200 PRINT “RIGHT” 
percentage and PRINT it. | 2410 LETR-R«T 
` 420 TO 520 | 
222. 50) PRINT "TOO SLOW” 4 
POKEing into Memory 510 LETS-S41 : 
к . А | 520 PRINT | 
As well as PEEKing into memory, you can POKE your own choice of | 530 PRINT | 
value into any chosen memory byte. BEWARE!! POKEing into the | 540 NEXT] | 
wrong places can upset the ZX80, so that you have to switch off to | 600 CLS a 
clear the RAM. The general statement is: | 61@ РЕ T "YOU GOT ":R:" RIGHT OUT OF 10" 
POKE n, m : 620 PRINT 
- 2. А | 630 PRINT r 
where n is the 5 digit address of the byte to be POKEd, and m isa 640 PRINT W;" WRONG” 
number between 0 and 255, the value we are POKEing. 650 PRINT, “AND e TOO SLOW” 
The ZX80 Operating Manual snows a reaction timer program on 760 PRI -' mr 
page 88, which uses the T.V. frame counter at addresses NT'PRE "E " 
16414/16415 and sets it to zero by two POKE statements. Here is а | 719 ҚТ ES N/L FOR MORE OR 5 TO STOP | 
program which uses the same idea to set up a tables test. You decide | 725 E AS - US" THEN STOP | 
how талу seconds you need to answer each question — and if you | 730 CLS ` | 
can get down to three seconds you're not doing badly! 1 740 GO TO 16 
ó LETS=0 | 
20 LET R-Ó | 
30 LETW-Ó | We Learnt These in Chapter 24 
104 PRINT “TIMED TABLE TEST” 
11@ PRINT | 
120 PRINT “HOW MANY SECS FOR EACH QUESTION?" | Statements and Expressions | 
130 INPUT A | 
190 FORJ=1TO10 | РЕЕК (п) to determine the contents of the memory byte at 1 
200 LET В= RND(12) address n. 
210 LET C=RND(12) POKEn,m to insert the value m into the memory byte at 
220 NT address n. 
234 PRINT | | 
240 PRINT H 
250 PRINT | 
270 PRINT B; X’; =?” | | 
280 РОКЕ 16414,0 | | 
290 POKE 16415,0 | 
94 | 95 
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Debugging Your Programs 


Itisan achievement of note if you can write a program of any length 
which runs first time without any errors. It is always likely that there 
are some errors or 'bugs' to get rid of before it will run properly. 


Syntax Errors 


Generally the ZX80 will not allow this kind of mistake. A quotation 
mark left out, an odd number of brackets, a number variable 
equated with a string variable, and [S] will come up and preventthe 
line from being entered. Note that leaving out both quotation marks 
is not a syntax error unless the proposed string has aspacein it, it 
will be entered as a variable. it is always worth keeping an eye on 
the screen to make sure that lines do enter when you press 
NEWLINE, otherwise you will waste time trying to tack your next 
line on to the end of the previous line with a syntax error. 


Error Codes 


ines of the program may have been entered successfully, 
е тео running because of other errors. The ZX80 helps you 
by showing the line number which caused the crash, and telling you 
what kind of error it is. 
rong NEXT 
Мп elo control variables at each end of a FOR/NEXT loop do not 
match, or there is a NEXT without a corresponding FOR. 
eg. 10 LETM=5 
100 FORJ=1 TO 16 
200 NEXT М 


96 


H 


With or without line 100 this gives a 1/200 error code. If M is not 
defined as in line 10, a 2/200 error code will be given. 


2/n Variable not defined 
Before it is used, a variable must be defined by one of these 
Statements: 
INPUT A or LET A=n (numbers) 
INPUT B$ or LET B$ "s" (strings) 
DIM Cin) (arrays, sets all members to 0) 
FOR D=n TO m (loop control variables) 


3/n Subscript errors 
Errors to do with the subscripts in an array. The most common 
error is to try to use a subscript outside the range defined by your 
DIM statement. 
eg. 14 DIM XQ) allows for X@), X(), X(2) 
200 LET X(4)- 50 
gives a 3/200 error. 
A(O) for A@) or A(D for A(T) also give this error. 


4/n Variable space full 
This occurs at a line which is trying to define a variable as in 2/n 
above, and shows that the variable space in RAM is full up. Here 
are some ideas to make room for more or bigger variables: 


(1) Check that you are making full use of your DIM statements, 
including use of the X(0) members of your arrays. 

(2) See whether you can cut down on the number of variables — 
maybe there are dummy variables which are unnecessary. 

(3) Shorten your string variables — use abbreviations. 

(4) Use only one string variable for all your INPUT pauses. 

(5) Cut down the general length of your program (see next 
section) to make room for more variables, 


5/n Screen full 
There are two possible remedies for this error: 


(1) Reduce the screen contents (if you have the full depth of 
screen available this is the only thing you can do). You can 
cut out empty or unnecessary PRINT lines, break up your 
display into smaller slices by using INPUT pauses followed by 
CLS, or reduce the depth of your graphics display. 

(2) Increase the screen depth. If your available screen is too 
small for the display you want, you'll have to chop your 
program to make more room on the screen. Here are some 
ideas: 
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*Remove REM lines 

*Cut out or abbreviate literal strings and string variables 
*Make sure you are not wasting any variable space (see last 
section) 


*Look for any repetitions in your program — do these as loops or 
subroutines. 


6/n Arithmetic overflow 
Maybe one of your final answers is too big — in this case you'll 
have to change your program or limit the range of INPUT 
variables. If it is an intermediate value which has gone over the 
top, you may be able to juggle with the order of operations to 
keep it within + 32767. 


Тіп RETURN without GO SUB 
Generally caused by accidentally entering a subroutine — 
remember that you must fence off your subroutines with STOP or 
something else. 


Errors Which Do Not Stop the Program 


You may have a program which seems to run perfectly, but which 
prints out rubbish — it all depends on the instructions you have put 
in! With many programs it is obvious if the output is not correct or 
sensible, others are less obvious and need careful checking. If the 
output is incorrect, you will have to find out why. Here are some 
ideas: 


(1) Check your program where possible by putting in data with a 
known answer. 

(2) Check your answers with a hand calculator. 

(3) Check punctuation carefully, especially when you are having 
trouble with tables of results or graphics displays. 

(4) Check any conditional statements by putting in data which 
first satisfies, then does not satisfy, the condition. 

(5) Follow the course of your loops carefully (especially nested 
loops), preferably using a flowchart. 

(6) Putintemporary PRINT lines (use line numbers ending in 9 so 
that you can easily spot and remove them later), so that you 
can see the values of your variables at different points in the 
program. 

(7) Check different parts of your program separately. 

(8) Put in temporary STOP statements and then use command 
PRINT to find the values of your variables. 


(9) Use command CONTINUE after a STOP statement to make 
the program continue running. 

(10) Check later parts of your program by using RUN n, which 

starts to RUN the program at line n. RUN or RUN n clear out 

all vatiables, so you may need to insert values for the variables 


and then use command GO TO n {equivalent to RUN n but 
does not clear variables). 


(11) If you are doubtful as to what the values of your variables are, 
use command CLEAR to empty the variable space completely. 


We Learnt These in Chapter 25 


Commands 


CLEAR completely clears all variables (also used as a statem 
$ ent). 
RUN or RUN n automatically CLEAR as well. il 
RUN n starts the program at line n after clearing variables. 
GO TO n starts the program at line n without clearing variables. 


CONTINUE (CONT, keyword T) restarts th 
STOP statement. © Program after а 
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Appendix 1 


ZX80 BASIC in 4K ROM 


A complete list of all the BASIC instructions available from the ZX80 
keyboard. Although the ZX80 will acceptany ofthe 22 keywords as 
both commands and statements, the lists are confined to those 
which are likely to be useful. 
Note: m and n represent integers. 

5 represents a string. | 

] represents a loop control variable. 

A and B$ represent variables. 


Commands Used in Writing and Editing Programs 
DIT brings a line (indicated by the current line pointer) 
: ю the bottom of the screen for editing. Also a 
useful way of clearing the bottom of the screen of 
rubbish! 


<> moves the current line pointer one line up. 

“> moves the current line pointer one line down. 

Ф moves the cursor one character to the left. 

D moves the cursor one character to the right. 
RUBOUT deletes the character to the left of the cursor. 
HOME moves the current line pointer to the position 


above the beginning of the program. 

LIST displays the first 22 program lines and moves the 

current line pointer HOME. | | 

displays line n with up to 21 adjacent lines, and 

moves the current line pointer to line n. 
transfers a numbered and valid program line 
from the bottom of the screen into the 
program. 

(2) causes the ZX80 to execute any command 
typed on the bottom of the screen. 


LIST n 
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System Commands 


Keyword instructions which do not form part of the program, but 
аге keyed in and executed by pressing NEWLINE. 


BREAK interrupts the ZX80 when it is working with a 
blank screen. Error code @/n shows where the 
program stopped, and any PRINT statements up 
to line n are executed. 

CLEAR deletes all variables. 

CONT = CONTINUE. Restarts the program after STOP or 
BREAK. Any screen contents up to the 
STOP/BREAK line are lost. 

GO TOn starts the program at line n without deleting any 
variables. 

LOAD loads a new program from cassette recorder into 
RAM. Some or all of the new program is displayed 
when loading is complete. 

NEW deletes the existing program. 

PRINT prints on the screen whatever follows the PRINT 
command. 

RUN deletes all variables and starts the program at the 
first line. 

RUN n deletes all variables and starts the program from 
line n. 

SAVE transfersthe program and variables from RAM into 
cassette recorder. When SAVEing is complete, 


program is displayed on the screen, 


Control Statements 


These are keywords which form part of the program and determine 
the way in which the program is run. 


CLEAR clears screen and deletes all variables. 

CLS Clears screen only. 

FOR J=n TO m starts a FOR ... NEXT loop, setting the loop 
control variable initially at n. If m is equal to or less 
than n the loop is entered once, otherwise the 
loop is entered m--n 1 times. 

jumps to a subroutine at line n, and continues 
from there until RETURN is reached. 

jumps to line n of the program and continues from 
there. 


GO SUB n 


GO TO n 
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IF... THEN . . -conditional statement IF . . . followed by THEN 
plus any valid keyword, which is executed if the 
condition is met. If condition not met, program 
continues at the line following. Most frequently 
used for conditional jumps, e.g. IF J>25 THEN GO 


TO 100. 


INPUT stops the program so that the user can input a 
value to a numerical or a string variable. 

NEXT J ends a FOR ... NEXT loop. Error if no corres- 
ponding FOR J =n to m exists. 

RET = RETURN. Used in a subroutine and jumps back 


to the line following the previous GO SUB n. Error 
if no previous GO SUB n. 

STOP stops the program and executes any PRINT 
statements. Command CONT restarts program 
with a clear screen. 


THEN see IF 
TO see FOR 


Other Keyword Statements 


These also form part of the program. 


DIM A(n) sets up a single dimension numerical array: 
A@), AQ), AQ), .. А(п) 
and sets all values to 0. 
LET assigns a value to a numerical or a string variable. 
eg.lETA-2  LETB-3*A LET B$=" XYZ” 
POKE n,m puts the value m into the memory address n. 
PRINT prints on the screen whatever follows PRINT, 


which may be one or more of the following: 

number, numerical variable, expression, literal 

string, string variable. 

RAND =RANDOMISE. Sets a random number as the 
seed value for future RND(n) expressions. 


RAND n sets n as the seed value. 

REM indicates a remark, no action to be taken by t 
computer. 

Expressions 


These are all integral functions, which have to be typed out in full. 
Generally used in programs, though they can form part ofa 
command. 


102 


Numerical 

ABS(n) the absolute value of n. 

PREKE) the value currently stored at memory address n. 

R Din) a pseudo-random number between 1 and n. 
5К(п) calls а machine code structure at address n 


(machine code programs are outside the scope of 
this book). 


String handling expressions 


CHR$ (n) the gparacter which has the code n (null string if 
ns Т), 

CODE (5) the code number for the first character in the 
string s. 

STR$ (n) the number n converted to a string so that the 


various string handling techniques can be used on 

it. 

TLS (s) the string s minus its first character. If s is null or 
has one character, TL$ (s) is the null string. 


Logical Operators 
The logical ope ; ы 
statements. operators, NOT, AND, OR, are used with conditional 


e.g. IF NOT A=100 THEN... 
IF A=2 AND B$- "XYZ" THEN... 
IF A 100 OR B-10 THEN... 


Arithmetic Operators 


n**m n raised to the power m. 
=n the negative value of n. 
n*m n multiplied by m. 

nim n divided by m. 

nam n plus m. 

n-m n minus m. 


Relational Operators 
These are used for comparing two numbers, variables or 
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expressions. - is also used in assigning а value to a variable. 


n 


=m 


n>m 
п<т 


n equals m 
nis greater than m. 
n is less than m. 


Punctuation 
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directs the ZX80 to PRINT the next item on the same line 
and immediately following the item before the ; . 
directs the ZX80 to move on to the next PRINT zone before 
printing the next item. Each screen line is divided into four 
PRINT zones. | | . 
show the beginning and end of a literal string or a string 
variable. m 

? can be used inside literal strings, but no other significance. 


Appendix 2 


Glossary of Terms 


Address Тһе number which 
identifies a byte of memory. 

Array А set of variables each 
identified by an array name 
and a subscript number, e.g. 
АФ), ACD, AQ), ... 

Back-up storage Some 
method of long term storage 
of programs and variables, 
e.g. a cassette recorder. 

BASIC Originally designed for 
beginners, now one of the 
most widely used high level 
languages for micro- 
computers. 

Binary digit (Bit) One digit 
from a binary number; can 
only be @ or 1. 

Binary number А number in 
the binary system (base 2), 
where all the digits are Ó or 1, 
instead of @ to 9 as in the 
decimal (base 10) system. 

Bug An error in a program 
which prevents it from doing 
what is required of it. 

Byte A binary number 8 bits 
long, the normal storage unit 
in a microcomputer memory. 

Character Any item which 


can be stored in one byte 

and printed on the screen, 
e.g. A 1 ; PRINT are all 

ZX80 characters. 

Character codes The single 
byte number which identifies 
each character — these may 
vary from one computer to 
another. 

Command An instruction 
which does not form part of 
the program, but which 
makes the computer take 
action of some kind. 

Conditional jump Causes a 
jump to a different part of the 
program if a given condition 
is met. 

Crash Тһе program stops 
running because of a 
program or data error. 

Debug To find and remove 
errors from a program. 

Edit To select and alter any 
chosen line in a program. 

Enter To transfer a program 
line, or a command, or some 

data from the keyboard to 
the computer (by pressing 
NEWLINE on the ZX80). 
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Error code А signal from the 
computer showing the nature 
and the position of an error. 

Firmware Sometimes used to 
denote the interpreter 
program, and other 
permanent programs found 
in ROM. 

Flowchart А representation in 
diagrammatic form of a series 
of connected operations to 
be done in a specified 
sequence. 

Hardware The physical parts 
of a computer and the 
surrounding equipment, as 
opposed to programs. 

High level language 
Programming language made 
up of a set of recognisable 
English words. 

Integer А whole number 
which may be positive or 
negative. 

integer BASIC АШ calculations 
are carried out with integers, 
and any decimal parts are 
chopped off and lost. 

K (of memory) Aunit of 
memory containing 1024 

ytes, 

Keyword А command or 

statement occupying one 

byte of memory and entered 

y a single keystroke. 

Literal string A set of 

characters enclosed by 

quotation marks and printed 
iterally on the screen by the 
computer. 

Load To transfer a program 

rom back-up storage to the 

computer. 


Loop Part of a program which 


is carried out repeatedly. 
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Low level language 
Programming language which 
uses machine code. 

Machine code Programming 
code which uses the 
hexadecimal system to 
represent binary numbers. 

Nested loops Loops within 
loops, so that the instructions 
in inner loops are carried out 
several times for each pass 
round the outer loop. 

Null string А string con- 
taining no characters at all. 

Numerical variable А 
variable with some given 
name, to which can be 
assigned any desired number 
value or numerical 
expression. 

Priority Тһе order in which 
arithmetical or logical 
operations are carried out. 

Program А A numbered list of 
instructions to be carried out 
by a computer. 

Pseudo-random numbers 
These have an apparently 
random distribution but each 
number is in fact calculated 
by the computer from the 
previous number, and they 
are therefore not truly 
random. 

Random access memory 
(RAM) 

Computer memory used by 
the programmer for storage 


of programs, data, and so on. 


Each byte of RAM can be 
read or altered at will. 
Random number А number 
drawn from a given set, 
where each number in the 
set is equally likely to be 


drawn and the draw is not 
affected by previous events. 

Read only memory (ROM) 
Permanent computer 
memory generally used to 
contain BASIC interpreter 
programs, operating systems 
and so on. Can be read but 
not changed. 

Relational operators 
> (greater than), < (less than), 
= (equals), used to compare 
numbers, expressions or 
strings. 

Save То transfer a program 
into back-up storage for 
future use. 

Software Computer programs 
and manuals, as opposed to 
hardware. 


Statement An instruction to 
the computer which forms 
part of the program. 

String variable A variable, 
identified in BASIC by a 
name ending in the $ sign, to 
which may be assigned a 
string of characters of any 
kind (with minor exceptions). 

Subroutine А part of the 
program to which the 
computer can be directed 
from any part of the main 
program. When the 
subroutine has been carried 
out, the computer is directed 
back to the line following its 
original departure point. 
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Appendix 3 


Programs for the 7Х80 


1. Graph Plotter 


14 DIM X(16) 
20 DIM Y(16) 
30 PRINT "GRAPH PLOTTER” 
40 PRINT 
45 PRINT 
50 PRINT "PRESS ANY KEY, THEN TYPE IN YOUR EQUATION 
LIKE THIS: 
120 LET YQ) -2*X() « 5" 
55 PRINT 
60 PRINT "THEN PRESS NEWLINE, CONT, NEWLINE” 
70 | STOP 
160 — FORJ«1TO 16 
116 LET X(Q)=J 
1209 — LET YQ) =2*X() +5 
130 NEXTJ 
490 PRINT “Y” 
500 FORJ=1TO 16 
520 1ЕТМ-17-) 
525 IF NX1Ó THEN PRINT ”; 
530 PRINT N;"WE "5; 
546  FORK-1 TO 16 
550 IF NOT Y(K)- N THEN GO TO 580 
560 PRINT “X”; 


570 СОТО 590 


580 PRINT” ”; 
594 МЕХТК 
600 PRINT 

614 МЕХТ) 


620 PRINT” ”;СНЮ9(133); "m -——s' 
630 PRINT"024681111X" 
640 PRINT ^ 0246” 


Line 620 uses 16 graphic blocks (SHIFT W). 


List of variables 


X(16) : А А 

vta] coordinates of the points on the graph. 

" } FOR/NEXT loop counters. 

N where J has the values 1 to 16, N has the values 16 to 
1. 

Notes 


This program is intended to show the forms of graphs of different 
mathematical expressions for Y as a function of X. On RUN, the 
program pauses to allow the user to insert his own equation. In the 
example given, the equation Y = 2X+5 is typed in as: 


120 LET Y(J = 2*X() +5 


Any equation which uses the ZX80 mathematical operators can be 
yped in, but some juggling with constants may be needed to make 
the graph appear within the scales X=@ to +16 and Y=@ to +16. 
It is worth noting the use of PRINT CHR$(133) in line 620. This 
prints a character which is not available on the ZX80 keyboard, in 
this case to supply the 'corner' where the two axes join. 


Line 70 stopsto allow the equation to betyped in. STOP 
must be followed by CONT to make the 
program continue. 

Lines 100 to 130 sets X and Y coordinates for each point on the 
graph. Line 120 shows a sample equation. 

Lines 490 to 640 draws the graph. Note that to draw the graph 
the ‘right way up’, }= 1 TO 16 has to be reversed 
to give N=16to 1. 

Line 560 plots the points on the graph. 

Lines 530 and 620 draws the Y and X axes. 
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2. Klingon Missile 


100 LET MX=14 
110 LET MY «14 


120 LET FX-Ó 

130 LET FY=6 

140 LET Q=6 

186 CLS 

190 LETJ=14 

200 PRINT "Y" 

216 IF J<16 THEN PRINT’ ''; 

220 PRINT J; 

230 IF MY=] OR FY-J THEN GO TO 2000 
240 PRINT "| Қа” 
250 1ЕТ)=)—1 


260 IF J>—-1 THEN GO TO 216 

276 NT” 612345678911111X" 

280 PRINT” 61234” 

290 IF Q=1 HEN STOP 

300 PRINT "FIRING AT WHICH SQUARE?" 


200 LET MX ABS(MX-RND()) 
4106 LET MY - ABBS(MY-RND(3)) 
500 IF MX>1 OR MY>1 THEN GO TO 660 


520 PRINT "END OF САМЕ” 


540 STOP 
600 IF MX «FX AND MY « FY THEN LET Q=1 
614 GO TO 180 

2000 FORK-Ó TO 14 

2016 IF Q=1 AND FX-K THEN GO TO 3000 
2020 IF FX=K AND FY=} THEN GO TO 4066 
2630 IF MX=K AND MY =] THEN GO TO 5000 
2050 PRINT “S”; 

2060 NEXT K 

2090 PRINT 

2100 GOTO 256 

3000 PRINT "POW...."; 

3014 GO TO 2090 

4000 PRINT "X"; 

4016 СОТО 2060 


530 PRINT "YOU HAVE JUST BEEN EXTERMINATED” 


5000 PRINT ем”; 
5010 GO TO 2666 


List of variables 


MX coordinates of the Klingon missile. 

MY 

FX . А А 

FY coordinates of your own defensive shots. 
Q ‘flag’ to show that missile is destroyed. 

J number of rows of graphics blocks in grid. 
K FOR/NEXT loop counter. 

Notes 


You are at the bottom left of a 15x 15 grid, and an enemy missile is 
at the top right. The missile makes a series of random moves 
owards your corner, until eventually it destroys you. You have to 
predict what the position of the missile will be after each move, and 
try to eliminate the missile by firing shots at the predicted positions. 


Lines 100 to 140 — initialising the variables. 

Lines 180to 280 drawing the 15x15 grid, and directing the 
program to line 2000 to print the missile and the 
defensive shots. 

Line 290 stops the program when the missile is 
destroyed. 

Lines 300 to 344 inputting the coordinates of the defensive shots. 
Lines 400 to 500 randomly sets new coordinates for the missile 
and prepares to draw a new grid. 

Lines 510 to 530 stops the program when you have been 
exterminated. 
Lines 600 to 610 — sets the ‘flag’ to show that the missile has been 
destroyed, and returns to line 180 to draw a 
new grid. 
Lines 2000 to 5010 this routine prints rows in the grid which 
contain the missile and/or the defensive shots, 
and also indicates when the missile has been 
destroyed. 
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3. Fox and Hounds 


16 DIM X(4) 

20 DIM Y(4) 
100 FORJ-1TO4 
110 LET X() =2*)—1 
120 LET Y() -Ó 
130 NEXT) 

140 1ЕТХ-4 

150 LETY-7 


266 GO SUB 2000 
300 PRINT “HOUND NO. "; 


RINT A; 
RINT "TO WHICH SQUARE? X="; 


350 PRINT ХА); “Y=; 
360 INPUT Y(A) 
490 CLS 
500 LET YY-Y-1 
510 LET Q- RND()*2-3 
FORM-1TO2 

530 LET XX=ABS(X+Q) 
540 IF XX>7 THEN LET XX «6 
550 FORL=1TO4 
560 IF XX=X(L) AND ҮҮ « Y(L) THEN GO TO 596 
570 NEXTL 
580 GO TO 726 
590 LET Q=-Q 
600 NEXTM 
610 IF YY -Y 4 1 THEN GO TO 766 
620 LETYY=Y+1 
630 IF YY27 THEN LET YY=6 
640 GO TO 510 

790 PRINT “NOWHERE TO GO, YOU WIN” 

716 GO TO 820 

720 IF YY=@ THEN PRINT “СОТ THERE, | WIN” 
800 LETY=YY 
810 LET X=XX 
O SUB 2000 

830 Y= THEN STOP 

844 GOTO 366 
2000 PRINT,” 01234567 X" 
A Fox and Hounds program for the PET was published in 
Computing Today, October 1980. 


© 
ы 
©. 
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2014 ҒОК|-0Т07 

2015 PRINT,J; 

2020 FORK-0TO7 

2030 FORL=1TO4 

2040 IF NOT (X(L) -K AND Y(D) =) THEN GO TO 2070 
2050 PRINT L; 

2060 GO TO 2136 

2070 МЕХТІ 

2080 
2090 PRINT “F”; 

2100 GO TO 2136 

2114 IF NOT (K+J)/2)*2=K+J THEN GO TO 2125 
2115 PRINT "^; 

2120 GO TO 2136 

2125 PRINT” ”; 

2130 NEXT K 

2140 PRINT 

2150 NEXT] 

2160 PRINT, “Y” 

2170 RETURN 
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List of variables 


ха) coordinates of the four hounds. 

х j coordinates of the fox. 

А number of the hound to be moved. 

LKLM  FOR/NEXT loop counters. 

X dummy variables for the coordinates of the fox. 

Q random +1 or —1 to determine whether fox goes left 
or right. 

Notes 


On RUN, the ZX80 prints a chess board with four numbered 
hounds spaced evenly along the top row, and a single fox on the 
bottom row, The fox and hounds move alternately, the fox tryingto 
get to the top row, and the hounds trying to stop him by boxing him 
in. You move the hounds (there are no anti-cheat tests, that is up to 
youl), and the computer moves the fox at random, but always 
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forwards if possible. You can make the game harder by cutting 
down the number of hounds (e.g. line 100 FOR ] - 1 TO 3 and line 
2030 FOR L=1 TO 3 for three hounds). The fox is not intelligent, 
that needs more memory than you have got. 

Lines 100 to 150 sets start coordinates for hounds and fox. 

Line 200 GOSUB to print the board with fox and hounds. 
Lines 300 to 360 — picks a hound and moves it to a chosen square. 
Lines 500 to 644 fox tries all possible legal moves, first the two 
orward ones, then backwards. He stops on any 
square not occupied by a hound. 

Lines 700 to 7104 — fox has tried all squares without success and so 
oses the game. 


Line 720 ох has reached the top row (Ү-- 0) and won the 
game. 
Line 840 ack to Line 300 for another set of moves. 


Lines 2000 to 2170 subroutine to print the chess board with four 
hounds and a fox. 

Lines 2030 to 2070 hound printing loop. 

Lines 2080 to 2100 printing the fox. 

Lines 2116 to 2125 printing alternate black and white squares. 


4. Fruit Machine With Optional Nudge 


14 DIM WG) 

20 | RANDOMISE 

0 FORJ=1TO3 

10 — LET W() = RND(6) 
20 GO SUB 5000 


25 PRINT 
3% PRINT "HIT KEY C TO CHANGE LAST WINDOW OR 
NEWLINE TO GO ON TO NEXT" 

40 INPUT A$ 

50  IFA$-'' " THEN GO TO 300 

60  IFA$-'"C" THEN LET УМ - W() + RND(4) 

70 — IFW()»6 THEN LET Wg) = W()—6 

86 CLS 

90  GOSUB 5000 

95 PRINT 
209 RINT "HIT NEWLINE TO OPEN NEXT WINDOW” 


210 INPUT A$ 
220  IFA$-" " THEN GO TO 300 


300 CLS 
310 NEXT] 
390 PRINT 


400 PRINT "ANOTHER GO? PRESS NEWLINE” 
410 INPUT A$ 

420 IFA$=" " THEN GO TO 446 

430 STOP 

440. CLS 

450 CLEAR 

466 GOTO 16 

5000 PRINT “00000000 00000000 00000000 '' 
5010 PRINT “0 00 0 0 0” 
5020 FORK-1TO3 

5030 GO SUB (5560+ 16*W(k)) 

5040 NEXT K 

5050 PRINT 

5060 PRINT “O 00 90 0” 
5070 PRINT “00000000 00000000 00000000 ” 
5080 RETURN : 

5500 PRINT “O о”; 

5505 RETURN 

5510 PRINT"O BELL 0”; 

5515 RETURN 

5520 PRINT "O APPLE 0”; 

5525 RETURN 

5530 PRINT “0 CHERRY О”; 

5535 RETURN 

5540 PRINT"O PEAR 0”; 

5545 RETURN 

5550 PRINT"O STAR О”; 

5555 RETURN 

5560 PRINT "0 ANCHORO ”; 

5565 RETURN 


List of variables 


WAT to 3) three random numbers to select ‘fruits’ for each 


window. 

A } FOR/NEXT loop variables. 

AS INPUT string variable to allow the player to choose 
branches and to make the program continue after a 
pause. 

Notes 


On RUN the program prints three windows, with a ‘fruit’ in the first 
one. The player has the option of changing that fruit with a ‘nudge’, 
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or going on to open the second window. Again, when the second 

ruit is displayed, the player can change it if he wishes, and likewise 

the fruit in the third window. The object is of course to get three 

ruits the same. 

Lines 100 to 310 à FOR/NEXT loop — the program goes round 

the loop three times to deal with the three 

windows. 

generates a random number from 1 to 6. 

sends the program to subroutine 5000 to print 

windows and fruits. 

Lines 130 to 156 gives player the option of nudging the last 

window to change the fruit. 

Lines 160 to 190 routine to change the last fruit. 

Lines 200 to 220 pause to let player see the windows and then 

move on to the next. 

Lines 390 to 466 — offers the player another go. Note line 450 

CLEAR to empty the windows before returning 

to line 10 for the next try. 

Lines 5000 to 5565 subroutine to print windows and fruits, 
controlled by the three random numbers Мр. 
Note that the window frames are made up of 
Os, but any graphic blocks may be used. 


Line 110 
Line 120 


5. Tables Test 


184  RANDOMISE 
90 LET TR-Ó 

100 FORJ=17TO 10 
110 GO SUB 5000 
120 PRINT 


130 PRINT “HIT NEWLINE FOR NEXT QUESTION” 
140 INPUT A$ 

150 NEXT J 

160 CLS 

170 PRINT 

180 PRINT "YOU СОТ” ТҚ)” RIGHT OUT OF 16” 
190 PRINT 

200 PRINT "HIT N/L FOR 10 OR S TO STOP" 

210 INPUT A$ 

220 IF A$-"S'" THEN STOP 

230 GO TO 96 
5000 LET X- RND(12) 


5010 LET Y=RND(13)—1 
5020 LET Z=X*¥ 


5030 LET B=RND(4) 

5040 CLS 

5050 PRINT 

5060 СОТО 5166+ 26*B 

5120 PRINT X;" TIMES "^Y; EQUALS 2” 
5130 GO TO 5300 

5140 PRINT X;^ X' Yit =?” 

5150 GO TO 5300 

5160 PRINT Z;" DIVIDED BY ';X;" EQUALS 1" 
5170 GO TO 5400 

5180 PRINT X; INTO ';Z;" GOES 2” 
5190 GO TO 5400 

5304 PRINT 

5310 FORK-1TO2 

5320 INPUT ZZ 

5336 NT ZZ 

5346 NT 

5350 iF ZZ=Z THEN GO TO 5500 


BAZ 


24 


5360 PRINT "SORRY — WRONG" 
5370 NEXT K 

5375 PRINT 

5380 PRINTOG" ху; e '5Z 
5390 RETURN 

5400 PRINT 


5410 FORK=1TO2 
5420 INPUT YY 
5430 PRINT YY 
5440 PRINT 
5450 IF YY-Y THEN GO TO 5500 
5460 PRINT "WRONG THAT TIME” 
5470 NEXTK 
5475 PRINT 
5480 PRINT X;" INTO 'Z;" GOES "у 
5490 RETURN 

5500 IF K=1 THEN LET TR- TR4 1 
5510 PRINT "CORRECT" 

5520 RETURN 


List of variables 


TR total of right answers. 
LK FOR/NEXT loop counters. 
Аў INPUT null string variable to continue after a pause. 
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X, Y the two random numbers which are the basis of each 
question. 

2 the product of X and Y. 

B a random number from Т to 4, used to select the form of 
the question. 

22 INPUT answers to the multiplication questions. 

YY INPUT answers to the division questions. 

Notes 


On RUN, the program prints a multiplication or division sum based 

on the multiplication tables up to twelve, and the user has to type in 

the answer. If wrong, he is given one chance to correct it, after 
which the correct answer is shown. After nine more questions, the 
total of first time correct answers out of ten is shown. 

Lines 100 to 150 FOR/NEXT loop sends the program ten times to 

subroutine 5000 for a question and answer. 

Lines 160 to 220 display the number of correct answers out of 
ten, and offer the chance of another ten 
questions. 

Lines 5000 to 5020 set up the multiplication sum on which each 
question is based. Note that X can not be 0, this 
avoids questions in which a number is divided 
by zero. 

ines 5030 to 5060 controlled by а random number, send the 
program to one of the four possible forms of 
question. 

Lines 5120 to 5196 contain the four different forms of question, two 
multiplication and two division. 

Lines 5310 to 5390 deals with answers to multiplication sums. 
Stops to let the user insert his answer, tests it, 
allows another try if wrong, and then prints 
correct answer and returns. 

Lines 5400 to 5490 do the same function as above, in this case for 
division sums. 

Lines 5500 to 5520 signal correct answers and count them. 


6. Throwing a Single Dice 


16 ВАМООМЕЅЕ 


20 CLEAR 
30 DIM Y(6) 
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46 
114 
120 
130 
150 
160 
170 
180 
190 
200 
220 
236 
246 
250 
260 


276 
280 
300 
310 
326 
900 
1000 
1010 
162 
1030 
1050 
1060 
2000 
2010 
2026 
2030 
2046 
2056 
2060 
2070 
2080 
2090 
2106 
2116 
2126 
2130 
2149 
2150 
2166 


уо алиа Хон ео! 
= ie] У 0 0 70 
2 2 ж 52320255350 


до 


LE] 


R 


шо» 


ua 


NT "DICE THROWING” 
NT 


NT 
NT "HOW MANY DICE THROWS?” 


о 
с 
з 
> 


NT A;" DICE THROWS” 
NT 


O SUB 1000 


NT 
NT “DO YOU THINK THE DICE IS FAIR?" 


NT "PRESS NEWLINE TO PUT THE RESULTS ON A BAR 


о 
© 
wn 
c 
a 
N 
©. 
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NT "PRESS NEWLINE FOR ANOTHER GO" 
PUT A$ 


А%-”” THEN GO TO 26 
OP 
ORJ=1 TOA 


[X-RND(G6) 
YQ = YOQ +1 
ыт” 
XT J 


ETURN 
LS 


RJ-1TO 18 
T N=19—] 


F NX1Ó THEN PRINT 47 


NT N;'^'5 
RK=1TO6 


F NOT Y(K)»N--1 THEN GO TO 2090 


NT" 123456" 


Т” DICE THROW” 
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List of variables 


Y(6) The number of times that each dice throw result (1 or 2 
or3... etc) has turned up. 

A number of dice throws INPUT by the player. 

A$ null string variable to move the program on after a 
pause. 

LK FOR/NEXT loop counters. 

X the number turned up when one dice is thrown. 

N N is needed to turn the bar chart the right way up. When 


]-1TO 18, Nis 18to f. 


Notes 


The user decides how many times he wants to throw a single dice. 

The results are shown as a collection of random numbers from 1 to 

6, and these are then sorted, totalled and displayed in the form ofa 

bar chart. Of course we would expect a perfect dice to give an equal 

number of ones, twos, threes, and so on. Perfection is not to be 

obtained in this world, and all dice are subject to the laws of 

probability. What the program will show is that as the number of 

dice throws is increased, the result begins to approach the 

‘expected’ result. 

Lines 150 to 186 determine the number of dice throws (this is 
limited to about 60 by the size of screen). 

Lines 1000 to 1060 throw the dice the required number of times, 
sort out and total the results, and print the 
results as a series of numbers from 1 to 6. 

Lines 2000 to 2160 prints the results in the form of a bar chart, 
showing how many ones, how many twos, and 
50 on. 


7. Throwing a Pair of Dice 


14 ВАМООМІЅЕ 


20 DIM Y(12) 

160 CLS 

114 — PRINT "THROWING А PAIR OF DICE" 
120 PRINT 

130 PRINT "HOW MANY TIMES?" 

144 INPUTA 

260 CLS 


299 PRINT "THE TOTALS ARE" 


300  FORJ-1TOA 
316 LET X= RND(6) + RND(6) 


320 ET YO) = Ү(Х) +1 

330  PRINTOG" ”; 

340 МЕХТ) 

350 PRINT 

400 PRINT 

41 PRINT "PRESS NEWLINE FOR A 
PRINT ер BAR CHART OF THE 

420 INPUT A$ 

500 CLS 

510 FOR}J=1TO15 

520 LET N=(16—})*2 

530  IFN«11 THEN PRINT "' ”; 

546 РЫМТЫ-1; "; 

550 FORK-210O 12 

555 IF NOT Y(K)>N--1 THEN GO TO 570 

560 PRINT “N”; 

565 СОТО 595 

570 1ЕМОТҮ(®>М—2 THEN СОТО 596 

580 PRINT “а” 

585 СОТО 595 

590 PRINT” ”; 

595 PRINT“ ”; 

616 МЕХТК 

620 PRINT 

630 МЕХТЈ 

640 PRINT" 23456 7 8 9101112" 

650 PRINT“ TOTAL FOR TWO DICE" 


List of variables 


Ү(12) Array of cumulative frequencies for scores 2 to 12. 
LK Loop control variables. 

Ag INPUT string variable to continue after a pause. 

N Values for vertical scale of bar chart. 

Notes 


On RUN you are asked to input the number of times to throw the 
dice = up to 100 will ensure that you stay clear of ‘variable space 
full’ errors. You then see a display of the actual scores for each 
throw, and then press NEWLINE for a bar chart of the results. 
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Lines 300 to 340 


Line 310 
Line 320 


Lines 51010 630 


loop from 1 to the number of throws chosen, 
which throws dice and prints each score. 
throws two dice and adds up the two throws. 
accumulates the frequency for each score from 
2 upto 12. 

outer J loop prints the vertical scale of the bar 
chart. Inner loop prints bars and spaces. A half 
block (SHIFT T) represents 1 on the vertical 
scale, and a whole block (SHIFT A) represents 2. 


8. Pontoon 

29 DIM X(5) 

30 LET M=100 

90  CLS 

100 PRINT "FIRST CARD: ^; 

110 LETJ=@ 

126 GO SUB 2000 

130 PRINT "YOUR ВЕТ?” 

146 — INPUT B 

150  LETM«M-B 

170 CLS 

180 PRINT "YOUR CARDS ”; 

190 GO SUB 2006 

200  LETPT-T 

210 — PRINT "YOUR BET:£'^B 

240 T>21 THEN GO TO 900 

250 PRINT 

260 PRINT “NOW WHAT? T- TWIST 5 = STICK" 
270 INPUT A$ 

280  IFA$-'S" THEN GO TO 1000 
290  IFA$-'T" THEN GO TO 176 
366 СОТО 270 

900 PRINT “YOU HAVE BUST” 
910 GOTO 1230 

1000 LETJ-6 

1610 CLS 

1020 NT "YOU HAVE “РТ; “ POINTS" 
1030 PRINT "BANKS TURN ”; 

1444 GO SUB 2000 

1050 ІРТ<14--ЕМГХЗ) THEN GO TO 1010 
1660 IF T>21 THEN GO TO 1266 
1070 IF PT>T THEN GO TO 1216 
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1086 
1090 
1200 
1210 
1220 
1236 
1240 
1256 
2000 
2016 
2026 
2030 
2046 
2050 
2060 
2070 
2080 
2096 
2100 
2110 
2120 
2136 
2140 
2150 
2166 
2170 
2180 
2190 
2200 
2216 


PRINT "YOU LOSE”, 

GO TO 1230 

PRINT "BANK BUST” 

ET M=M+2*B 

RINT "YOU WIN”, 
RINT “YOU HAVE ЕМ 
PU г 


F X21 AND X<11 THEN PRINT X, 
FX«11 THEN PRINT “J”, 

ЕХ= 12 THEN PRINT “Q”, 

ЕХ=13 THEN PRINT “K”, 

F X>10 THEN LET ХХ 10 

F X21 THEN GO TO 2150 

PRINT “А”, 

LET XX=] 

LET T- T4 10 

ETT=T+X 

Е NOT(XX = 1 AND T>21) THEN GO TO 219% 
LET T=T_10 

LET XX=@ 

NEXT K 

PRINT "TOTAL POINTS =”;Т 
RETURN 


List of variables 


up to 5 cards dealt. 

amount of money left. 

number of cards to deal. 

players bet on first card. 

total points in hand. 

total points in player's hand after ‘stick’, 

input string variable, “Т” or 57 or 7, 

marker to show presence of an ace with value 1 1. 
dummy variable for current card. 

FOR/NEXT loop counter. 
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Notes 140 PRINT "PRESS N/L TO THROW OR S TO STOP" 
| 150 PRINT "PRESS N/L FOR NEXT TURN” 
The player starts with £100. On RUN he is dealt a card and bets on it 160 INPUT Ag 
(make your own rules about betting limits). He then gets his second 170 IFA$-'99" THEN STOP 
card and is given the usual option of twisting (T) or sticking (S). This 180 CLS И 
is repeated until he finally decides to stick (at up to 21 points) or is 200 PRINT "YOUR =”; " ы”: 
ust (over 21). Assuming that he sticks, the bank now deals himself 218 GO SUB 1000 TOTAL = TO), MY TOTAL = T0) 
cards until their points total is 15 to 17 (random number) or greater, 300 LET T) - TO +8 
and bank pays out on scores higher than his own. 316 PRINT 
Most of the basic rules of pontoon are obeyed. Aces are scored 320 PRINT | 
roperly as 1 or 11, buta pair of aces gets the scoring into a muddle. 330 PRINT В; ON THAT TURN" | 
Pontoons and five card tricks are not recognised as having any value 340 PRINT | 
above their points score — the player will have to give himself credit 350 IF T(1)>99 THEN PRINT "YOU WIN” | 
or these now and again. The option of buying a card face down is 360 T(2)>99 THEN PRINT “1 WIN” 4 
not included. 370 ІР Т()>99 THEN STOP | 
Lines 100 to 150 — deal the first card and accept a bet on it. 380 LET J=3-} | 
Lines 170 to 910 deal a second card, and then further cards as 390 GO TO 150 | 
requested Бу T, display cards and points score 600 PRINT E 
each time. Test for ‘bust’, and on the command 014 ТЕТЕ | 
5 pass the program on to the bank's turn. 020 IF J=2 THEN GO TO 1400 | 
Lines 1600 to 1250 the bank deals himself cards, deciding whether 030 PRINT “YOUR TURN" i 
or not to stick according to whether his points 640 PRINT | 
score is below the random number 15 to 17. At 060 INPUT AS 
the end of his deal, the banker may be bust or 070 IF A$— "S" THEN RETURN 
have a lower points score than the player — in 080 LET Z=RND(6) 
these cases the player wins. If the bank's score is 090 PRINTZ, 
equal to or above the player's score, the bank 100 IFZ-6 THEN GO TO 1300 | 
wins. 110 LETR=R+Z | 
Lines 2600 to 2210 each time this subroutine is entered, it deals опе 120 GO TO 1060 | 
more card, displays all the cards dealt so. far 300 PRINT "TOO BAD...” | 
together with the points score. 310 LET R«Ó 
Lines 2120 to 2180 deal with the special case of an ace, which can 320 RETURN 
be scored as 1 or 11. 400 PRINT “MY TURN NOW” 
410 PRINT 
424 LET Z=RND(6) 
425 PRINTZ, 
9. Hog 430 IF Z-6 THEN GO TO 1610 
440 LETR-R«Z 
10  RANDOMISE 450 LET 0-99-10) 
20. DIMTO) 460 LETE-(108—1(0)/8 
30 1ЕТ|-1 | 470 1ЕТС-(108--Т(2)/Е 
100 PRINT "THE GAME OF НОС” | 480 ТЕ С<15 THEN LET C«14 
116 — PRINT | 1490 IF C>D THEN LET C-D 
120 PRINT "TRY TO REACH 100 BEFORE ! DO” : 500 IF R>C THEN RETURN 
13Ó PRINT | 510 GO TO 1426 
124 | 125 


1610 PRINT “BOTHER. ...”; 
1620 LETR=6 
1630 RETURN 


List of variables 


TQ) total scores for player and computer. 

1 marker to show whose turn is in progress, 1=player, 
2=computer. 

A$ input string variable to make game continue. 

R total score for each separate turn. 

Z one individual dice throw. 

C D,E variables calculated to allow the computer to decide 
whether to throw the dice again or stop. 


Notes 


Hog is a simple but compulsive dice throwing game. The player 
starts, and is allowed to throw as often as he likes to build up a high 
score, but if he throws a six his score for that turn is reduced to 0, 
and the turn passes to the ZX80 which plays in the same way. Play 
continues with alternate turns, and the winner is the first to reach a 
total of 100. 
Lines 18010 390 — print the totals at the start of each turn, go to 
subroutine 1900 for the required number of 
ice throws, print the score for that turn and 
add it to the total, test the new total for a win 
and then returns to give the other player a turn. 
Line 386 gives Ј the values 1 and 2 alternately. 
Lines 1036 to 1320 the player's turn — he has a free choice after 
each throw of throwing again or stopping. Each 
dice throw is printed, and the score for that turn 
is reduced to 0 when a six is thrown. 
Lines 1400 to 1630 the ZX80's turn — he throws in the same way, 
and shows some ‘intelligence’ (lines 1450 to 
1510) in basing his decision as to whether to 
throw or stop on his own and the player's score. 


10. Submarine Hunt 


10 DIM P(4) 
26 DIM Q(4) 
30 DIM X(15) 
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40 
50 
60 
100 
110 
120 
130 
200 
220 
236 
249 
250 
260 
300 
310 
400 
410 
420 
430 
440 
450 
466 
470 
480 
49) 
500 
596 
600 
610 
626 
630 
640 
656 
660 
670 
680 
760 
716 
729 
730 
740 
756 
800 
816 
1600 


DIM Y(15) 
RANDOMISE 

LET 5-4 

FOR K=1TO4 

LET P(K) = RND(8) 

LET Q(K) = RND(8) 

NEXT К 

FOR J=1 TO 15 

PRINT 5;% SUBS TO SINK” 

PRINT "FIRING AT WHICH SQUARE? X="; 
NPUT X(J) ' 
PRINT ХО); Y=” 

МРОТ Y(j) 


PRINT “LAST SHOT X-'5X(J);"' Ү='3Ү() 

OR K=1TO8 

FOR L=1TO8 

FOR M=1 TOJ 

F NOT (X(M)=L AND Y(M) = 

PRINT ee (M) - K THEN GO TO 466 
GO TO 480 

NEXT M 

PRINT “ей”; 

NEXT L 


FOR K=1TO4 

LET 2 = (X(J)—P(K)}**2 + (Y0)—Q(K))**2 

F Z<3 THEN LET T=1 

F NOT Z=@ THEN GO TO 700 

PRINT "DIRECT HIT” 

LET S=S—1 

F 5-- THEN GO TO 1000 

LET P(K) - 19 

GO TO 726 

Р Z<3 THEN PRINT 1 SQUARE OFF”; 

F Z=2 THEN PRINT “DIAGONALLY” 
NEXT К 

F T=@ THEN PRINT “MISSED” 

PRINT 

NEXT J 

PRINT "END OF GAME. 'S;" SUBS LEFT" 
STOP 

PRINT "ALL SUBS SUNK IN ^;];" SHOTS" 
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List of variables 130 LET МО) =] | 
140 NEXT j P 
P(4) А arines 150 LET М N(1)*1@ * * | 3 
QU) ] coordinates of the four submarines. 160 PRINT ^* ТЫҒЫНЫН 10+ N(4) | 
Х(15) А ‚ 170 LETX=X41 
Yas | coordinates of the player's 15 shots. 180 PRINT 7 | 
5 number of submarines left. 190 IF X>1@ THEN GO TO 900 | 
ІЖД,М- FOR/NEXT loop counters. 200 PRINT "GUESS 0227, | 
indicator to show whether or not player's shot has 210 INPUTG | 
missed. 220 LET G(1) =G/1000 | 
2 variable calculated to show whether the shot was a hit, 230 LET С(2) = G/100—G(1)* 16 | 
or within one square of a submarine. 246 LET GG) = G/A16—(G/100)* 10 1 
250 LET G(4) - G-(G/10)*10 | 
260 PRINTG, | 
Notes 300 FORJ=1TO4 | 
Four submarines are hidden at random, each occupying one square 316 NX NO) THEN GO SUB 1000 | 
in ап 8 by 8 grid. It is possible, but rare, for more than one 330 FORJ-1TO4 | 
submarine to be on the same square. On RUN, you are invited to 344 FORK-1TO4 | 
fire at one square on the grid by entering X (squares along) and Y 35 - К | 
(squares down) coordinates. The ZX80 then prints the coordinates 350 ОЮ, NU) THEN GO SUB 1100 
of this shot, draws the grid showing all shots so far, and tells you 320 LEI NG) = ABS(NQ) | 
whether you have made a direct hit, or are M one square ofa 380 NEXT] | 
submarine. You have a total of 15 shots to sink all four submarines. 749 IFNOTG- 
Lines 10010130 sets the coordinates of the four submarines. 786 " vd G=N THEN CO TO 176 | 
Lines 230 to 310 — inputs the coordinates of the present shot and 790 PRINT | 
prints them. 8 PRINT ^^ aa »" | 
Lines 460 to 500 prints the 8 by 8 grid, showing the position of all 800 OP GOT IT IN 5:4 GOES | 
shots fired so far. This is done by a triple nested 90% PRINT 
loop, which accounts for the time delay in 910 PRINT “SORRY, IT WAS ':N | 
carrying out this part of the program. 920 STOP ! ' | 
Lines 600 to 740 compares the coordinates of each shot with the 1600 PRINT "m ': | 
coordinates of each submarine, and announces 1016. LET G() « Ó ! ! 
direct hits, near misses ог complete misses. 1020 LET N(D - №) f 
1030 RETURN і 
1100 PRINT а; 
111 ГЕТС(К)=@ 
11. Bulls and Cows 1120 LET NO-NO) 
16 DIM GA) 1130 RETURN 
20 DIM N(6) 
50  LETX-Ó List of variables 
60 RANDOMISE | 
100 FORJ-1TO6 C) four digits of the player's guess. 
110 LET Q- КМО (6) N(6) a random array of the numbers from 1 to 6 
126 IF NOT N(Q)=@ THEN GO TO 116 X counts the number of guesses. f 
128 | 129 


LK loop control variables. 

Q random number from 1 to 6. 
N the hidden 4-digit number. 
G the player's guess. 

Notes 


On RUN the ZX80 generates a 4-digit number which has each digit 
between 1 and 6, and different. The player makes a guess, and the 
result on the scoreboard is shown as black ‘bulls’ (right digits in the 
right place) and grey 'cows' (right digits in the wrong place). Up to 
ten guesses are shown on the scoreboard, and then the number is 
revealed. 

l prefer this easier version, but if you want to play it the hard way, 
where the digits in the hidden number may be the same, you need 
to make these changes: 


Delete lines 100 to 130 
120 FORJ=1TO4 
130 LET NO = КМО (6) 


Bulls and Cows presents some interesting programming problems. 
Lines 100 to 140 — Sets the numbers 1 to 6 into a random array. 
Lines 160 to 190 — counts the guesses. 

Lines 200 to 216 — inputs the next guess. 

Lines 220 to 250 — splits the guess into four digits. 

Lines 300 to 320 — checks each digit for a black ‘bull’. 

Lines 330 to 380 checks each digit for a grey ‘cow’. 


Line 376 restores each hidden number digit after it has 
been checked. 
Line 760 loops back for another guess. 


Lines 1000 to 1030 subroutine for ‘bulls’. Prints a black ‘bull’ on the 
scoreboard, erases the current guess digit so 
that it can give no further score. 

Lines 1100 to 1130 subroutine for ‘cows’, as for ‘bulls’ subroutine 
above. 


12. In the Caves 


16 RANDOMISE 
20 LET P=29 
36 LET L- 1 


DIM О(2) 

DIM R(2) 

LET D - RND(9) 

LET F=RND(22) 

LET E=@ 

LET K- RND(9) ° 
ET M=RND(23) 

ҒОК|- Mor] TO 24 

LET N=) 

LET X=M*N—1 

Х/Р)*Р = Х THEN GO TO 566 

NEXT J 
GO TO 260 

PRINT "HIT N/L FOR NEXT TURN” 
NPUT A$ 

CLS 
PRINT "PLAYER ';L;" IN CAVE Ой) 
LET R(L) = О) 

PRINT “WHICH WAY? F/B/S" 

NPUT A$ | 
F A$ = "B" THEN LET A=Q(L)*M | 
F A$—"F THEN LET A« Q(D*N | 
FA$-"S" THEN LET A=P+2-QiL) 


ч 


LET A=A—(A/P) 
F А<24 THEN LET Ой)-А 
CLS 


PRINT A$; WENT FROM CAVE "R(); 

ЕКОШ) = К) THEN PRINT “ TO A DEAD END” 

F NOT Q(L) = RI) THEN PRINT “ TO CAVE 2004) 
F NOT Q(L) «23 THEN GO TO 1166 

PRINT "KEY 11S 5D 

PRINT yoo TO CAVE 'CF;" TO FIND KEY 2" 

F NOT (Q(L) =F AND E>@) THE 

PRINT "REY ris AR ) N GO TO 1200 
PRINT "TAKE KEYS TO CAVE 6” 

F NOT (Q(L) =@ AND E>0) THEN GO TO 1460 
PRINT "KEY 1+ KEY 2-27 

NPUT H 

F NOT H=D+E THEN GO TO 1360 

PRINT H;" CORRECT. PLAYER 2:7 WINS" 
STOP 

PRI NT WRONG TOTAL. KEEP LOOKING” 
GO TO 560 
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List of variables 


P a prime number, 29 in the above program. 

L number of the player, 1 or 2. 

QQ) the number of the cave in which each player now is. 

RQ) the number of the cave from which each player has just 
come. 

D this is Key 1, a random number from 1 to 9. 

F the number of the cave in which Key 2 is to be found. 

E this is Key 2, set at 0 until Key Т has been discovered. 
the value which will be put into Key 2. 

M a random number from 1 to 23 (23 sets the number of 
caves). 
loop control variable. 

N a number between M+1 and 24, such that X=M*N—1 
and X is a multiple of the prime number P. 

AS input string variable to restart after a pause, and to input 
the instruction F, B, or S. 

H input variable, the answer to the sum of Key 1+ Key 2. 

Notes 


This program, the ZX80's answer to Dungeons and Dragons, 
generates one out of a number of different networks of 23 caves. 
From each cave you can move forwards (F), backwards (B), or 
sideways (S) at will, and each move may take you into another cave 
or a dead end. The game is for two players (if you want to practise 
on your own, delete line 1400). Both players start at 0, from which 
they move sideways into cave number 2. After that anything may 
happen, and each player is on his own, he knows where the other 
one is, but not what moves he has made. If you are going to get out 
alive, you will need to draw a map, and a sample one is shown on 
the following page. 

The first object is to get to cave 23, where you are given two bits of 
information: 


Key 1 (a number from 1 to 9). 
Which cave Key 2 is in. 


You have to make your way to this cave and find Key 2. The first 
player to get home to 0, and produce the correct sum of Key 1 + Key 
2 is the winner. 

Lines 200 to 260 — sets up the network of caves. 

Line 530 prints the present cave number. 
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Line 540 puts the present cave number into a dummy 


variable, 
inputs F, B, or S and moves to a new cave, or 
stays in the same one if a dead end. 


prints where your move has taken you from and 
to where. 


Lines 810 to 880 


Lines 910 to 950 


In the caves — a sample layout of caves 


% one move forwards (backwards іп reverse direction to arrow) 


— one move sideways 
- у x dead end 


ц 


"Key 1 is always in Cave 23, which may be 
anywhere in the network. 

**Key 2 was in Cave 1 on this occasion, but may 
be in any cave other than 23. 

0 Start and finish here. 
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Now come a number of tests: 


А wu he 
i to 1030 Is the player in cave 23? If so he is given th 
Lines 1000 to values in variables D and F, and Key 2 is given its 

icthe pl here Key 2 is hidden 
ines 1100 to 112015 the player in the cave where Key 2 i D 
C and has Key 1 been found yet? If so then he is 
given the value of Key 2. 
i has Key 1 been 
1200 to 1216 Is the player back home at Ø and 
lines 1200 ‘ound? If so then he is asked the total of Key 


1+ Key 2. , h 
Lines 1220 to 1300 Is the total of Key 1 + Кеу 2 correct? If so the 
layer wins. 
Line 1400 changes from one player to the other. 
Line 1410 oops back to line 500 for next move. 


13. Multiples 


10 PRINT 

PRINT " 
2 PRINT “CHOOSE А NUMBER BETWEEN @ AND 99”; 
46 INPUT NN 
50 CLS . 
60 PRINT "MULTIPLES OF 'NN; . 
70 — IF NN=@ THEN PRINT " (ONLY ONB”; 
N=1 THEN PRINT "' (EVERY ONE)”; 

( 


ó E чИ 
90 IF NN 22 THEN PRINT “ (EVEN NUMBERS) ; 
100 IF NN 25 THEN PRINT “ (IN 2 COLUMNS)"; " 
116 F NN «10 THEN PRINT "(ALL IN 1 COLUMN)"; 
120 PRINT 
130 PRINT 


150  FORJ-Ó TO 9 

200 FORK=0TO9 

210 LETN=10*}+K 

215 IF NN«0 AND N=6 THEN GO TO 2000 
220 IF NN «0 THEN GO TO 230 

225 IF (N/NN)*NN=N THEN GO TO 1000 
230 PRINT N; . 

244 IF N<1@ THEN PRINT “ ”; 

250 PRINT "5; 


266 МЕХТК 
276 PRINT 

280 PRINT 

29Ó NEXT] 
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300 PRINT "ANOTHER NUMBER? 
310 GO TO 46 
990 STOP 
1000 LET A- CODE(STRÉ(N) 
1010 LET B = CODE(TLS(STRÉ(N)) 
1030 IF B=1 THEN LET B=@ 
1040 PRINT CHR$(A + 128);CHR&(B + 128); 
1650 GOTO 256 


2000 PRINT CHR$(156;;CHR$(128); 
2010 GO TO 250 


List of variables 


NN chosen number for multiples. 

LK loop control variables. 

N current number in the number square. 

^, B codes of the two digits of the number to be printed in 
inverse. 

Notes 


You are asked to input a number between б and 99. The program 

then prints out a Ó to 99 number square in which all the multiples of 

your chosen number are printed in inverse. A few relevant 

comments are thrown in for good measure. 

Note that Ó times any number equals 0, so that Ø has to be shown 

as a multiple of every number in the Square. 

Lines 150 to 290 print the number square, 

Lines 215 to 220 таке special provision for 0. 

Line 225 tests each number in the square for divisibility 
by the chosen number. 

Lines 1000 to 1656 routine for inverse printing of one- or two-digit 
numbers. 

Lines 2000 to 2010 inverse printing of б. 


14. Number Base Changing — Base 2 / 10 


16 LET P«—1 
20 LETD=6 
30 DIM B(8) 
40 LET X=6 
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RINT 
PRINT 

PRINT 

PRINT 

PRINT "WHATS THE NEXT NUMBER BASE” 
PRINT ,"2 OR 10?" 

NPUT B 

CLS 
F B=2 THEN GO TO 566 

F NOT B- 16 THEN GO TO 130 . 
PRINT "ENTER DECIMAL NUMBER, UP TO 255 
NPUT N 

CLS 

PRINT 

PRINT “DECIMAL NUMBER «'N 

PRINT 

PRINT “BINARY NUMBER =”; 

LET F=128 

F N/F=@ THEN GO TO 370 

LETX=1 

LET N=N—F 

PRINT 1; 

GO TO 386 

X=1 THEN PRINT 0; 

LET F=F/2 

F=@ THEN GO TO 16 

GO TO 316 

PRINT 


mn 


E 


INPUT A$ 
CLS 
PRINT “BINARY NUMBER -";A$ 
ҒОК)-1ТО8 

LET BU) = CODE(AS) 

LET A$ = ТІҘ(АҘ) 

NEXT J 
РОВ Ј= TO 7 
LET N « 8-J 
B(N) = 1 THEN GO TO 750 

E B(N) «28 OR B(N) -29 THEN LET P=P+1 
F B(N) = 29 THEN LET О= D 2**P 

NEXT J 
PRINT 
PRINT “DECIMAL NUMBER =”; 
GO TO 16 


т 


PRINT "ENTER BINARY NUMBER,UP TO 8 BITS" 


List of variables 


Р power variable for calculating decimal numbers. 

D decimal number calculated from a binary number. 
B(8) array of up to 8 binary digits, used to calculate D. 

B choice of base (2 or 10) for the input number. 

N input decimal number, to be changed to binary. 

F power of 2, used to calculate binary number from a 


decimal. 

A$ input binary number, up to 8 bits, to be changed to 
decimal. 

1 loop control variable. 

X ‘flag’ to suppress the printing of Ós at the start of a binary 
number. 


Notes 


You choose to start with a decimal or binary number, and the 

program converts this into the corresponding number in the other 

base. As written, this program is limited to 8 bits maximum in 

binary, or 255 maximum in decimal. 

Lines 300 to 340 — ifthe decimal number is divisible by the present 
power of 2, subtracts that power of 2 from the 
number and prints a binary digit 1. 

Line 376 if the binary number has been started, and ifthe 
decimal number was not divisible by the 
present power of 2, prints a binary digit 0. 

Line 380 reduces to next lower power of 2. 

returns to start when units digit has been 

printed. 

Lines 510 to 680 — inputs a string representing a binary number of 

up to 8 bits, and splits this into an array of 8 

character codes. 

Lines 700 to 75Ó examines the 8 characters in reverse order. 


Line 720 ensures no action if character was a null string, 
that is, no binary digit was present. 

Line 730 increasesto next power of 2 if a binary digit (0 or 
1) was present. 

Line 740 increases the calculated decimal number by the 


present power of 2 if the binary digit was 1. 


E 


КОНЕ 


Appendix 4 


Sample Answers to 
Exercises 


Note that these are sample answers only — your own answers may 
be different but equally correct. 


Exercise 5.1 


10 PRINT “THREE LINES GONE, ONE LEFT" 


Exercise 5.2 


The keyword is NEW 


1000 PRINT “SINCLAIR ZX80 MICROCOMPUTER” 


2000 PRINT s 
3000 PRINT” MADE BY SCIENCE OF CAMBRIDGE 


Exercise 6.1 


“A” is a literal string (see Chapter 4), and so the ZX80 will print the 
letter A instead of the value of the variable A. 


Exercise 6.2. Exchange rates 


14 LETL-275 
20 LET B-69*L 
30 PRINT B 
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49 PRINT “BELGIAN FR. FOR £^ 
5@ PRINT L 

60 PRINT 

10 LET B1=5382 

120 LET L1=B1/69 

30 PRINT L1 

40 PRINT “£ NEEDED FOR ” 
150 PRINT B1 

60 PRINT “ BELGIAN FR.” 


Exercise 7.1. Miles per gallon 


9 LETM=258 

20 LETG=8 

30 LET MPG=M/G 

40 PRINT “PETROL MILEAGE —'5MPG;" M.P.G.” 


Result is 32 M.P.G., or 32.25 М.Р.С. with a calculator, 


Exercise 7.2. Family transport 


10 PRINT “NAME”, “COLOUR”, “MAKE”, “TYPE” 
20 PRINT 

30 PRINT “DAD, “WHITE”, AUSTIN”, “CAR” 
46 PRINT “JOHN, “GREEN”, “TRIUMPH, “BIKE” 
5@ PRINT “MUM, “BROWN”, К”, “SHOES” 


Comma spacing can give troubles. Try changing line 30 to give DAD 
a VOLKSWAGEN. 


Exercise 8.1 


PRINT 36*90/54 gives the correct answer (60). 
PRINT (730/25)* 45 gives the answer 1305. The correct answer is 
1314, the small error being due to integer BASIC. 


Exercise 8.2. Temperature conversion 
1Ó LET F=77 
20 LET C= (F—32)*5/9 


30 PRINT F; " DEG. F= C; DEGREES C" 
(Answer: 25 degrees C) 
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Exercise 8.3. Volume and weight of cuboid 


16 LETL-14 

20 LETB-9 

30 LETD=6 

4) LETV=L*B*D 

50 PRINT "VOL. OF LEAD BRICK=";V;" CUBIC CM” 
60 LETW-11*V 

70 PRINT 

80 PRINT "WEIGHT «'";W;'* GRAMS” 

(Answer: 756 cubic cm, 8316 grams) 


Exercise 9.1. Inflation 


10 LETP-80 
20 LET Y-6 
Ё LET Y=Y+1 


(next year) 


40 LET P=P*12/10 (pay increased by 20%) 


50 IFP«1000 THEN GO TO 30 (ends loop when P is 1000 or 


more) 
60 PRINT "PAY IS £';P;"' PER WEEK AFTER” 
70 PRINT Y;" YEARS" 
(Answer: £1011 per week after 14 years) 


Exercise 9.2. Chess prize 


10 LETS-1 

20 LETC-1 

30 LETTC-1 

40 LETS=S+1 
50 LETC-C*2 
60 LETTC-TC«C 


70 1Е5<15 THEN GO TO 40 
80 PRINT "TOTAL «"';TC;" COINS ON ";S;" SQUARES” 


The answer is 32767 coins on 15 squares, so one more square 


would cause an arithmetic overflow. 


Exercise 11.1. Running average 
10 LETN=0 
20 LETT=0 
30 PRINT 
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J————————À ast tte " — 
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Note. Keep this program to practise editing in Chapter 12. 


Exercise 12.1. Editing 


PRINT “INPUT NEXT ITEM NOW” 
INPUT X 
LET T=T+X 
LETN=N41 
LET A=T/N 
CLS 

PRINT N;” ITEMS SO FAR, AVERAGE ="; A был X 
СОТО 30 ir 
115 
(2o f: 


ос ба DTI 


Your EDITed program should give an output like this: 
5 NUMBERS SO FAR 


AVERAGE - 4 
INPUT THE NEXT NUMBER NOW 
ШЫ 


Exercise 14.1. Savings 


LET 75-0 

FOR M=1 TO 12 

PRINT 

PRINT “HOW MUCH THIS MONTH?” 
INPUT S 

CLS 

LET TS=TS+S 

PRINT "£'5TS;" SAVED IN "M; MONTHS” 
PRINT 

IF T5299 THEN PRINT "SEND FOR YOUR 2Х80 NOW" 
NEXT M 


Exercise 14.2. Compound interest 


LET C- 100 

PRINT “£106 AT 9 PER CENT INTEREST" 
PRINT 

PRINT "YEAR", “CAPITAL” 

PRINT 

FOR Y«1 TO 7 

LET С C*109/100 

PRINT Ү,,С 

NEXT Y 
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Exercise 15.1. Number square 290 PRINT 


300 PRINT Bg 
100 FORJ-0 TO 9 310 PRINT 
110 FORK-ÓTO9 320 PRINT 
120 1F]-6 THEN PRINT ^ '5 330 PRINT ; 
130 PRINT 10*J +К; 340 PRINT 
144 PRINT б” 350 GO TO 130 
150 NEXTK 
160 PRINT | 
176 PRINT Exercise 16.2. Form filling 
180 NEXT] 
1% PRINT USE TYPE IN YOUR SURNAME NOW” | 
е 110 INPUTS | 
x board 
Exercise 15.2, Chessboar 120 PRINT "NOW YOUR CHRISTIAN NAME" i 
_ 130 INPUT C$ 
ru FORI! ТО 4 140 PRINT "YOUR AGE IN YEARS 2” 
30 PRINT 150 INPUTA 
—4ó FORK=1104 160 PRINT “WHERE DO YOU LIVE ?” | 
5Ó PRINT “WB”: 170 INPUT w$ 
1-60 NEXT K 180 CLS 
70 PRINT 190 PRINT 
75 PRINT 200 PRINT C$; '55$;" 15 А; YEARS OLD" 
r-80 FORK=1TO4 210 PRINT "AND LIVES AT "W$ | 
90. PRINT “BW; 220 PRINT | 
100 NEXT K 230 PRINT "THANKS ';C$ 
—1160 МЕХТ) 


Exercise 18.1. Penny tossing 


Exercise 16.1. Songwriter 


104 RANDOMISE 
160 LET A$—' MEN WENT TO MOW” 20 LET 52-0 
110 ВФ = "WENT ТО MOW A MEADOW” 30 LET S3=0 
120 LET C$=’71 MAN AND HIS DOG" 40 1ЕТ54-0 
130 PRINT "HOW MANY MEN NOW (1 TO 12) ?" 100 FOR J=1TO 100 
140 INPUT M 110 LET S- RNDQ) + RND(2) 
200 CLS 120 IF S=2 THEN LET 52-5241 
210 PRINT М;АФ 130 IFS-3 THEN LET 53-5341 
220 PRINT B$ 140 IFS-4 THEN LET 54-54-41 
236 PRINT 150 NEXT} 
240 FOR J=@TOM-2 170 PRINT “TOSSING TWO PENNIES” 
250 IF M=1 THEN GO TO 280 180 PRINT 
260 PRINT МЈ; MEN” 190 PRINT 
270 NEXT] 200 PRINT "TABLE OF RESULTS" 
280 PRINT C$ 210 PRINT 
142 
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220 PRINT 130 LETJ=1 


230 PRINT “RESULT” ,,,““HOW MANY” | 200 PRINT "ENTER AN ITEM” 
240 PRINT ,,," TIMES" | 210 INPUT xq) 
250 PRINT 220 LET J=J4+1 


230 CLS ‚ 
240 IF JXN+1 THEN CO TO 200 
290 PRINT "LAST “ІМ ITEMS ”; | 
300 1ЕТ5=@ | 
310 FORJ=1TON | 
320 LETS-S4X() | 
330 PRINT ХО); ”; | 
346 LET XQ = XQ 1) 


260 PRINT “ТТ (SCORE 2)”,,52 
270 PRINT “НН (SCORE 4)”,,54 
280 PRINT “TH OR HT (SCORE 3)”,53 


Exercise 19.1. Areas of rectangles 


100 LET L- RND(15) 
110 LET B=RND(10) 


200 FORJ=1 TOB pu NE 
210 FORK=1TOL 410 PRINT 
220 PRINT "Z2"; 
220 МЕХТ К 420 PRINT "AVERAGE OF LAST ";N;" ITEMS «";S/N 
240 PRINT | 430 PRINT | 
ЕХТ | 
250 M NT | 450 PRINT "ENTER NEXT ITEM” | 
360 PRINT "LENGTH =” ДД; CM BREADTH =";B;" CM" | 300 трил X(N) 
410 PRINT | 
420 PRINT "AREA IN SQUARE CM «?" | 480 GO TO 306 
430 PRINT "JUST TYPE THE NUMBER" | For the general case of any number of items at a time, type іп 
440 NPUTA | these lines: 
450 PRINT | И ^ 
500 IFA-L'BTHEN GO TO 600 | 16 PRINT HOW MANY ITEMS AT A TIME ? 
510 PRINT “SORRY, ';A; 15 WRONG" | 116 INPUT N 
520 PRINT 4 X( +1) 
530 PRINT "AREA OF A RECTANGLE” | 
546 PRINT ,""« LENGTH x BREADTH” | 
550 PRINT ,"-";L;" X'5B j Exercise 21.2. Simple bulls and cows 
560 PRINT ,” = '5L*B;" SQ СМ” | 
57) GOTO 610 | _ 
600 PRINT A;" SQ CM IS CORRECT" | іН DIM ca 
610 PRINT .— 7 | 30 DIM G(4) 
620 PRINT "ANOTHER RECTANGLE ? Y/N”; | 100 FOR]-1TO4 
630 INPUT A$ | 110 LET C() - RND(6) 
650 IFAf-"Y' THEN GO TO 100 | 120 NEXT J 
| 200 PRINT "MAKE A GUESS AT MY NUMBER" 
| | 210 PRINT 
Exercise 21.1. Moving average | 220 PRINT "4 DIGITS ALL BETWEEN 1 AND 6” 
| 236 INPUT C$ 
116 LETN=6 | 240 LET H$=G$ 
120 DIM X(7) 250 FORJ=1TO4 


144 145 


RINT “ТОМ JONES ? "5 
80 INPUT B$ 
PRINT B$ 
100 PRINT “BILL BROWN ? us 
110 INPUT C£ 

RINT C$ 
130 PRINT "DICK BROWN 29; 
140 INPUT D$ 


260 LET G() - CODE(C) 
270 LET G$ = TL$(GÉ) 
280 NEXT] 

285 CLS 
290 PRINT “MY NUMBER WAS ”; 

300 FORJ=1TO4 

310 IF CHR$(GQ) = STRÉ(C() THEN LET B« B 1 
326 PRINT CU); 


330 NEXT] 150 PRINT D$ 
390 PRINT 260 IF (A$— "P" OR BS =P") AND (Cha "p" OR D$« "Pp 
400 PRINT “YOUR GUESS WAS “H$ THEN GO TO 1000 
410 PRINT 500 PRINT 
420 PRINT "YOU SCORED ”;B;” BULLS” 510 PRINT "CANT OPEN THE BOX, LETS GO HOME" 
600 PRINT 
610 PRINT "PRESS N/L FOR MORE OR S TO STOP" 
Exercise 23.1. The water tank 620 INPUT N$ 
630 IF N$- "S" THEN STOP 
640 CLS 
650 GO TO 10 
1000 PRINT 


1010 PRINT "OPEN UP THE BOX” 
1020 PRINT “TIME FOR A DIVIDEND" 
1030 GO TO 600 


АҘ 


Неге is one design for the town cashbox: 


For water to run away, tap A$ must be open AND so must either 
tap B$ OR tap C$. 


Exercise 23.2. The cashbox 


10 PRINT "ROLLCALL" 
20 PRINT,"P- PRESENT А = ABSENT" 
30 PRINT 

40 PRINT "BOB JONES 2”; 

50 INPUT A$ 

60 PRINT A$ 
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Appendix 5 


The Sinclair ZX80 16K RAM 
Pack 


You will have discovered by now that when you start writing 
complicated programs or handling a lot of data the ТК RAM in your 
asic ZX80 is soon used up! Science of Cambridge have recently 
made it possible for you to expand your ZX80 memory simply and 
economically. For about half the cost of an assembled ZX80, you 
receive a small box which plugs into the edge connector at the back 
eft of your ZX80 (see photo). This gives you an extra 16K of RAM, 
and it represents very good value by present day standards. The 
expansion box gets its power from the ZX80, and the running of 
your existing programs is unaffected. 

Your extra 16K of RAM can be used for writing more complex 
rograms — it will of course give you a full size screen display until 
you have used up most of the RAM (and that will take an awfullot of 
programmingl). 

Another way of using the extra RAM is to use it to store a large 
amount of data. Remember that your data is saved on tape with the 
rogram, and will not be lost when you load it again, provided that 
you do not press RUN or CLEAR (use GO TO line number instead of 
RUN). 
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The ZX80 with the 16K RAM pack being inserted 
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Appendix 6 


The Sinclair ZX80 8K BASIC 


ROM 


An 8K BASIC ROM is available for the Sinclair ZX80. This ROM 
offers many useful features not available with the standard 


machine: 


Floating point arithmetic with 9-digit accuracy 
Logs, trig functions and their inverses 
Graph drawing facility using PLOT and UNPLOT 


Animated displays using PAUSE 


Multi-dimensional numerical and string arrays 
Cassette LOAD and SAVE with named programs 
All characters, their video inverses and graphics may be entered 


directly from the keyboar 
Ability to drive Sinclair printer 


The new ROM is a 24-pin DIL pack that replaces the standard plug- 
in ROM. With this new ROM fitted, the ZX80 keyboard functions 
are altered and Science of Cambridge therefore provide a new 
keyboard overlay (see below) with the extra functions printed on it. 
Simply fix the overlay on top of the original keyboard and you are 


ready to go. 


150 


Index 


ABS, 28, 103 

Address, 92, 105 

Anagram, 77 

AND, 103 

Answers to exercises, 138 

Areas, rectangles, 69, 144 

Arithmetic, binary, 91 

Arithmetic operators, 103 

Arithmetic overflow, 98 

Arrays, 74, 105 

Average, moving, 145 
running, 140 


Back-up storage, 4, 43, 105 

BASIC, 3, 6, 105 

Bit, 105 

Binary number, 3, 105 

Binary arithmetic, 91 

Binary digit, 105 

Brackets, 27 

Branching, 58 
conditional, 35 
random, 62 

BREAK, 38, 44, 101 

Breaking loops, 38 

Bug, 105 

Bulls and cows, 78, 128 
simple, 145 

Byte, 3, 91, 105 


Calculations, 26 
Cashbox, 86, 146 
Cassette recorder, 4 
Caves, in the, 130 
Chance, 61 


Characters, 66, 105 

Chess prize, 33, 140 
Chessboard, 52, 67, 142 
CHR$, 66, 71, 103 

CLEAR, 101 

CLS, 38, 101 

CODE, 71, 103 

Code, error, 80, 96, 106 
Codes, 105 

Comma, 23 

Commands, 11, 100, 105 
Compound interest, 141 
Conditional branching, 35 
Conditional jump, 7, 30, 105 
CONT, 101 

Control statements, 101 
Crash, 105 

Crashproof programs, 58 
Cuboid, 140 

Current line pointer, 13, 40. 


Data, 37 

Debug, 105 

Debugging, 96 

Decimals, 18 

Decision diamond, 35 

Dice, throwing a pair of, 120 
throwing a single, 118 

Digit, binary, 105 

DIM, 74, 102 

Dummy variables, 73 

Dungeons and Dragons, 132 


EDIT, 40, 100 
Edit, 105 
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Editing, 41, 141 

ENTER, 105 

Error code, 24, 80, 96, 106 
Errors, syntax, 96 
Exchange rates, 138 
Expressions, 102 


Family transport, 139 
Firmware, 106 

Flowchart, 35, 106 

FOR, 46, 101 

Form filling, 56, 143 

Fox and hounds, 112 

Fruit machine, 114 
Functions, integral, 28, 102 


Glossary, 105 

Golf project, 65 
GO SUB, 80, 101 
GO TO, 30, 45, 101 
Graph plotter, 108 
Graphic blocks, 67 


Hardware, 1, 9, 106 
High level language, 106 
Hog, 124 

Home, 100 


IF, 80 

IF statement, 7 

F... THEN, 31, 36, 102 
In the caves, 130 
Inflation, 33, 140 
INPUT, 37, 55, 57, 102 
integer, 106 

Integer BASIC, 18, 106 
Integer variables, 20 . 
Integral functions, 28, 102 
Interest, compound, 141 


K (of memory), 106 
Keyboard, 10 
Keywords, 10, 102, 106 
Klingon missile, 110 


Language, high level, 3 
LET, 19, 37, 54, 62, 102 
Line space, 15 

Lines, deleting, 16 
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LIST, 41, 100 
Listing, 16 
Literal string, 13, 53, 106 
LOAD, 44, 101, 106 
Logic, 84 
Logical operators, 103 
Logical values, 88 
Loop, 30, 46, 106 
program, 7 
string input, 55, 68 
Loop control variable, 46 
Loops, 30, 35, 80 
breaking, 38 
nested, 50, 106 
Low level language, 106 


Machine code, 106 
Mathematical operations, 26 
Mathematical operators, 18 
Memory, 3, 91 
random access, 4, 106 
read only, 4, 106 
Miles per gallon, 23, 139 
Moving average, 145 
Multiples, 134 


Negative numbers, 28 
Nested loops, 50, 106 
NEW, 11, 101 
NEWLINE, 11, 100 
NEXT, 46, 102 
NOT, 31, 103 
Null string, 57, 71, 106 
Number base changing, 135 
Number, binary, 105 
pseudo-random, 61, 106° 
random, 61 
square, 51, 142 
variable, 72 
Numbering, 16 
Numbers, 72, 73 
Numerical variable, 53, 106 


Operators, arithmetic, 103 
logical, 103 
mathematical, 18 
relational, 31, 103 

OR, 103 

Overflow, arithmetic, 98 


Pair of dice, throwing a, 120 
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PEEK, 92, 102, 103 
Penny tossing, 63, 143 
Pictures, 66 
POKE, 94, 102 
Pontoon, 122 
Positive numbers, 28 
PRINT, 10, 12, 101 
Priority, 26, 86, 106 
Probability, 63 
Processing block, 35 
Program, 1, 15, 106, 108 
crash-proof, 58 
loop, 7 
saving, 43 


Pseudo-random numbers, 61, 106 


Punctuation, 23, 104 
Pyramids, 68 


RAM, 92, 106 
16K, 148 
RAND, 102 


Random access memory, 4, 106 


Random branching, 62 
Random numbers, 61, 106 
RANDOMISE, 62 

Read only memory, 4, 107 
Rectangles, areas, 144 


Relational operators, 31, 103, 107 


REM, 16, 102 
Renumbering lines, 41 
RETURN, 81, 102 
RND, 61, 103 
ROM, 4, 92, 107 

4K, 100 
RUBOUT, 15, 100 
RUN, 13, 101 
Running average, 140 


SAVE, 44, 101, 107 

Saving a program, 43 

Saving variables, 45 

Savings, 141 

Screen size, 68 

SHIFT, 11 

Simple bulls and cows, 78, 145 


Single dice, throwing a, 118 
Software, 2, 107 
Songwriter, 55, 142 
SPACE, 11 
Statement, 107 
Statements, 11 

control, 101 
STOP, 32, 57, 80, 102 
Storage, back-up, 4, 43, 105 
String, 53, 70 

input loop, 55, 68 

literal, 53, 55, 106 

null, 57, 106 

variables, 53, 55, 107 
STR$, 72, 103 
Submarine hunt, 126 
Subroutine, 80, 107 
Syntax errors, 96 


Tables test, 94, 116 


Temperature conversion, 28, 139 


Throwing a pair of dice, 120 
Throwing a single dice, 118 
TES, 71, 103 

TO, 46 

Tossing, penny, 143 


USR, 103 


Values, logical, 88 

Variables, dummy, 73 
integer, 20 
loop control, 46 
number, 72 
numerical, 53, 106 
saving, 45 
string, 107 

Volume of cuboid, 29 
of tank, 80 


Water tank, 86, 146 
Weight of cuboid, 29 
Words, arrays, 75 
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